@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr portA equ 54016strig equ 644right equ %00001000left equ %00000100down equ}lda portA and #%00001111 eor #%00001111 sta _new_joy and #down } bne _air_service lda _old_joy and #up bne _notchange } lda _new_joy sta _old_joy_notchange rts_air_service equ * lda _old_joy } and #up beq _notup rts_notup lda zwolnij+5 bne *-4 } lda strig beq _yes rts_yes lda #1 jsr _Y_rozpisz l }da #$3c jsr _X_rozpisz jsr _loc bne _yes2 rts_yes2 lda } _service_nr beq _yes3 lda kieszen+2 beq _yes4 lda zwolnij+4 } bne *+11 lda #$20+2 ldx #23 ldy #14 jsr m_init } jmp *+17_yes3 lda zwolnij+4 bne *+11 lda #$20+2 ldx #1 } ldy #12 jsr m_init lda _service_nr eor #255 sta _servi}ce_nr jsr _air_fire_yes4 rts_skrajna_wart equ * lda _faza_nr and} #%00000111 bne _skrexit lda _faza_nr sec sbc #8 s}ta _faza_nr_skrexit rts_rig jmp _right_lft jmp _left_main equ * js}r _ch_obs lda _st_move beq _m2 dec _st_move lda _faza_nr } cmp #16 beq _lft cmp #8 bcs _rig bcc _lft_m2 } lda #0 jsr _drop cpy #1 bne _m3 rts_m3 lda _old_joy} and #right bne _rig lda _old_joy and #left bne _l}ft lda _old_joy and #up bne _up jsr _snd_kolision } lda _faza_nr cmp #fzstpleft beq _ex_stp cmp #fzstpright beq _ex}_stp cmp #8 bcs _stp_right lda #fzstpleft sta _faza_nr_ex_stp } rts_stp_right lda #fzstpright sta _faza_nr rts_up equ *jmp_max eq}u 30 lda _faza_nr cmp #16 bne _stop_spr lda #0 s}ta _faza_nr jmp _up_continue_stop_spr cmp #17 bne _up_continue lda #8 } sta _faza_nr_up_continue equ * lda _jmp_counter cmp #jmp_max bne} _readY_no lda #0 sta _jmp_counter lda _old_joy and #%11111110 } sta _old_joy lda #255 jsr _drop rts_readY ldy _jmp_counter } lda _jmp_table,y sta _jmpposition jsr _jmp_kolisions cmp #0 !} beq _read2Y lda _jmp_counter cmp #1 bcs _ye lda #0 "} sta _jmp_Yposition jmp _no_ye inc _jmp_counter jmp _readY_read2Y #} ldy _jmp_counter lda _jmp_table,y sta _jmp_Yposition_not_readY inc _fz0_5 $} lda _fz0_5 cmp #4 beq _next_faza inc _jmp_counter jsr _stand %} rts_next_faza lda #0 sta _fz0_5 inc _faza_nr jsr _skrajna_wart&} inc _jmp_counter jsr _stand rts_left equ * lda _f'}aza_nr cmp #8 bcc _notr_change lda #0 sta _faza_nr (} rts_notr_change equ * lda _faza_nr cmp #6 beq *+6 cmp #2 )} bne *+21 lda _jmp_Yposition bne *+14 lda zwolnij+4 *} bne *+11 lda #$20+1 ldx #0 ldy #12 jsr m_init js+}r _alf_kolision_verify_up equ * lda _old_joy and #up bne __up ,} lda _fz05 beq _ex_left inc _faza_nr jsr _skrajna_wart_ex_left rts__-}up jmp _up_right equ * lda _faza_nr cmp #fzstpleft beq _l2_.}change cmp #fzstpright beq _l2_change cmp #8 bcs _notl_change_l2/}_change lda #8 sta _faza_nr rts_notl_change equ * lda _faza_nr 0} cmp #14 beq *+6 cmp #10 bne *+21 lda _jmp_Yposition 1} bne *+14 lda zwolnij+4 bne *+11 lda #$20+1 ldx #0 2} ldy #12 jsr m_init jsr _arh_kolision jmp _verify_up_X_rozpisz e3}qu * sta granica lda _pos_X sec sbc granica lsr @ lsr @ lsr @ sta _posX rts_Y_rozpisz equ * sta granica 4}lda _pos_Y sec sbc _jmp_Yposition sec sbc granica lsr @ lsr @ lsr @ lsr @ sta _posY rts_Y_2rozpisz equ * sta5} granica lda _pos_Y sec sbc _jmpposition sec sbc granica lsr @ lsr @ lsr @ lsr @ sta _posY rts*6}四_aup_kolision equ * lda #$1d sta glowa lda #$18 sta butla 7}jsr _aupd_kolision cmp #0 bne _aupexit dec _pos_Y_aupexit lda #9 * jsr _czubek 8}* rts_ado_kolision equ * lda #1 sta glowa lda #8 sta butla jsr _aup9}d_kolision cmp #0 bne _adoexit inc _pos_Y_adoexit lda #$16 * jsr _czubek * :} rts_jmp_kolisions equ * lda #$1d-2 sta glowa lda #$18-2 sta butla lda glowa;} jsr _Y_2rozpisz lda #$3d jsr _X_rozpisz jsr _loc sta _upbyte lda #$3b <} jsr _rozp lda _faza_nr cmp #8 bcs _gl_4up_gl_3up lda #$40 jsr _rozp jmp _2battle=}_gl_4up lda #$39 jsr _rozp_2battle lda butla jsr _Y_2rozpisz lda #$39 jsr _rozp >} lda #$40 jsr _rozp pha lda #9 jsr _czubek pla rts_czubek equ * ?} jsr _Y_rozpisz lda #$3d jsr _X_rozpisz jsr _loc sta _upbyte lda #$3b j@}sr _rozp rts_aupd_kolision equ * lda glowa jsr _Y_rozpisz lda #$3d jsr _X_rozpiszA} jsr _loc sta _upbyte lda #$3b jsr _rozp lda _faza_nr cmp #2+18 beq B}_gl_2up cmp #5+18 beq _gl_up cmp #3+18 beq _gl_up cmp #4+18 beq _gl_up_gl_2C}up lda #$40 jsr _rozp jmp _battle_gl_up lda #$39 jsr _rozp_battle lda butla jsr _Y_rozpiD}sz lda #$39 jsr _rozp lda #$40 jsr _rozp rts_upbyte dta b(0)glowa dta b(0)butlE}a dta b(0)_jmpposition dta b(0)_st_move dta b(0)_snd_kolision equ * lda #$3d sta _upbyte F} jsr _arl_kolision rts_arh_kolision equ * lda #$38 sta _upbyte jsr _arl_kolision cmp #G}0 bne *+5 inc _pos_X rts_alf_kolision equ * lda #$41 sta _upbyte jsr _arl_kolisH}ion cmp #0 bne *+5 dec _pos_X rts_arl_kolision equ * lda _upbyte jsr _X_rozpisz lda #$1d-I}1 jsr _Y_rozpisz jsr _loc sta _upbyte lda #$1+1 jsr _rozpY lda #$1+16 jsr _rozpY rts_stand equ * J} lda _jmp_counter cmp #23 beq _st67 cmp #30 bne _st2_sK}t67 lda _old_joy and #%11111110 beq _st2 lda _faza_nr *zabezpieczenie przed nL}askokiem na cmp #8 *krawedz wysokiej sciany bcs _st9 lda #$41 sta _upbyte jsr _arl_kolisioM}n cmp #0 bne _st2 beq _st8_st9 lda #$38 sta _upbyte jsr _arl_kolision cmp #0 bne _st2_N}st8 lda #1 jsr _Y_2rozpisz lda _faza_nr cmp #8 bcs _stO}_left lda #$41 jsr _X_rozpisz jsr _loc sta _upbyte P} jmp _st_st_left lda #$38 jsr _X_rozpisz jsr _loc sta _upbyte_st Q} beq _st64 lda _pos_Y sec sbc #16 sta _pos_Y_st64 S} lda #4 (4 kroki) sta _st_move (po naskoczeniu na element) lda #0 T} sta _jmp_counter sta _jmp_Yposition lda _old_joy and #%11111110 U}sta _old_joy_st2 rts_loc equ * ldy _posY ldx _posX stx V}zwolnij+1 sty zwolnij+2 jsr locate jsr rozpelement rts_rozp W} equ * jsr _X_rozpisz jsr _loc ora _upbyte sta _upbyte X} rts_rozpY equ * jsr _Y_rozpisz jsr _loc ora _upbyte Y} sta _upbyte rts__nodrop jmp _nodrop_drop equ * sta drop_up Z} lda _jmp_counter cmp #0 bne __nodrop lda #1 jsr _Y_rozp[}isz lda _faza_nr cmp #17 beq _dr3 cmp #16 beq _dr\}4 cmp #8 bcs _dr3_dr4 lda #$3d jmp _dr2_dr3 lda #$3c_dr2]} jsr _X_rozpisz jsr _loc bne __nodrop lda drop_up cmp ^}#255 beq _dr6 lda drop_counter bne _dr6 lda _empty _} cmp #255 beq _dr79 lda _old_joy and #right bne _dr5 `} lda _old_joy and #left beq _dr98_dr5 lda #3 jmp _dr99_dr98 a} lda #5_dr99 sta _st_move lda #4 sta drop_znacznik inc drop_countb}er rts_dr79 lda _faza_nr cmp #16 beq _dr80 cmp #17 c} bne _dr6 lda #8 sta _faza_nr jmp _dr6_dr80 lda #0 d} sta _faza_nr_dr6 lda _pos_Y clc adc #4 sta _pos_Y e} inc drop_counter lda drop_counter cmp #20 bcc *+5 jsr linkaf} inc _fz0_5 lda _fz0_5 cmp #4 bne _no_machaj lda #g}0 sta _fz0_5 inc _faza_nr jsr _skrajna_wart_no_machaj lda drop_counter h} cmp #5 bcs _no_mv lda drop_up cmp #255 beq _no_mv i} lda _empty cmp #255 beq _no_mv lda drop_znacznik beqj} _dr10 dec drop_znacznik jmp _no_mv_dr10 lda _faza_nr cmp #8 k} bcs _mv_lf jsr _alf_kolision jmp _no_mv_mv_lf jsr _arh_kolision_no_mv l}ldy #1 rts_nodrop lda #0 sta drop_counter sta _empty rtsm}_ch_obs equ * lda _faza_nr cmp #19 beq _ccl cmp #20 n} beq _ccl cmp #22 beq _ccp cmp #23 beq _ccp o} rts_ccl lda #16 sta _faza_nr rts_ccp lda #17 sta _fazap}_nr rtslvtxt dta d' POZIOM X 'lvdisp equ * dta d'ppppppppppq}pp' dta b(68),a(lvtxt) dta b(65),a(lvdisp)_d_rzwi jmp _drzwi_z_ebrac jmp _zebrar}clevels equ * lda kieszen+4 bne *+3 rts lda #$50 s} jsr m_init dec kieszen+4 jsr _pmbclear jsr _uzup lda t}#$99 sta kieszen+1 lda #$60 sta kieszen+2 lda 560 u} pha lda 561 pha lda #$16 sta 708 lda #$1a v} sta 709 lda #$1f sta 710 lda lvdisp sta 561 lda #$b4 sta 756 lda kieszen+6 x} bne *+10 lda #18 *2 sta lvtxt+19 jmp *+8 lda #17 y} *1 sta lvtxt+19 lda #100 sta 20 lda 20 bne *-2z} pla sta 561 pla sta 560 jsr 1160 {} lda kieszen+6 bne ll2 lda <$8700+1 sta reals lda >$8700+1 |} sta reals+1 lda #$98 sta _pos_X lda #$71 sta _pos_Y }} lda #2 ldx #0 sta zebratable,x inx cpx #46 ~} bne *-6 jmp contll2 lda <$8700+1+155 sta reals lda >$8700+1+1}55 sta reals+1 lda #$90 sta _pos_X lda #$31 sta _p}os_Y ldx #0 txa sta zebratable,x inx cpx #46 } bne *-6cont jsr translacja jsr _newwsp lda kieszen+6 eor #}255 sta kieszen+6 lda zwolnij+4 beq *+7 lda #$60 j}sr m_init lda #$a4 sta 708 lda #$6a sta 709 lda #}$1f sta 710 rtsrozpelement equ * cmp #106 bne *+5 } jmp levels cmp #38 beq _laser cmp #76 beq _laser } cmp #36 bne *+5 jmp _z_ebrac cmp #82 bne *+5 }jmp _d_rzwi cmp #112 bcs _spkolision ldx kieszen+6 beq *+2 } bne lev2 ldx #0 cmp eltable,x beq _nokol inx } cpx #19 bne *-8 ldx #0 cmp nabtable,x beq _nabkill } inx cpx #12 bne *-8 lda #1 rtslev2 equ * } ldx #0 cmp el2table,x beq _nokol inx cpx #18 } bne *-8 ldx #0 cmp nab2table,x beq _nabkill inx } cpx #8 bne *-8 lda #1 rts_nokol lda #0 rts_nabkill} cmp #52 beq maznab cmp #54 beq maznab cmp #56 } beq maznab cmp #58 beq maznab bne *+13maznab ldx zwolnij+1 } ldy zwolnij+2 lda #16 jsr position lda kieszen+3 bne *+5} jsr linka lda #0 rts_laser lda kieszen+3 bne *+7 } ldx #8 jsr _skroc lda #0 rts_spkolision equ * ldx }#0 cmp zsptable,x beq *+6 inx jmp *-6 lda Xzsptabl}e,x tay lda dane-4,y and #%01111111 sta _pamietaj } lda _pos_X sec sbc #$3c sec sbc _pamietaj cmp #8} bcs _nokol lda kieszen+3 bne *+7 ldx #2 jsr _skr}oc lda #0 rtslinka equ * lda zwolnij+4 bne *+11 } lda #$20+1 ldx #14 ldy #15 jsr m_init ldx #0_lin3 } lda linia,x cmp #1 bcs _lin2_lin6 inx cpx #128 bn}e _lin3 rts_lin2 cmp #4 beq _lin4 cmp #5 bcs _lin6 } inc linia,x rts_lin4 lda #0 sta linia,x rtszwolnij }dta b(4),d' ',b(0),b(0),b(0)r2ozpelement equ * cmp #112 bcs _mspkolision } ldx kieszen+6 beq *+2 bne tt ldx #0 cmp eltable,x } beq *+10 inx cpx #17 bne *-8 lda #1 rts } lda #0 rtstt ldx #0 cmp el2table,x beq _2nokol } inx cpx #17 bne *-8 lda #1 rts_2nokol lda #0 } rts_mspkolision equ * ldx #0_spkl4 cmp zsptable,x beq _spkl5 } inx jmp _spkl4_spkl5 stx _pamietaj+2 lda Xzsptable,x tay } lda dane-4,y and #%01111111 sta _pamietaj sty _pamietaj+1 }ldy Xmem lda _misX_position,y sec sbc #$40 sec sbc} _pamietaj cmp #4 bcs _2nokol jsr __mazspritea ldx _pamietaj+2} lda Xzsptable,x tay lda dane,y and #%11110111 sta }dane,y lda #1 rts_pamietaj dta b(0),b(0),b(0)mazsptab dta b(112),b(116),b(120),}b(124)Xzsptable dta b(8),b(8),b(17),b(17),b(26),b(26),b(35),b(35)zsptable dta b(112),b(114),b(116),b(118),b(120),}b(122) dta b(124),b(126)_zebrac jsr _kasuj_element lda #0 rts_drzwi } lda kieszen beq _2drzwi dec kieszen ldx #88 jsr _opn_door } lda #0 rts_2drzwi lda #1 rts__mazspritea equ * lda 20} cmp 20 beq *-2 txa lsr @ tax ldy} #0_maz_sp lda screen,y cmp mazsptab,x beq _maz_2sp iny i}ny bne _maz_sp_maz_2sp ldx _pamietaj+1 lda dane-6,x jsr wyswietl }fzl0 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(4}7),b(43),b(111),b(43),b(5),b(7),b(2),b(0) dta b(0),b(32),d' ' dta d' ',b(120),b(224),d' ',b(56),b(}72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40),b(24) dta b(56),b(24),b(24),b(24),d' ' dta d' } ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32) } dta d' ',b(4),b(4),b(4),b(24),b(56),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65)},b(73),b(64),b(128) dta b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(69) dta b(70),b(68),b(68),b(34),b(34),b(26)},b(36),b(68),d' 'fzl1 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(}35),b(47),b(43),b(111),b(43),b(5),b(39),b(66),b(36) dta b(100),b(96),b(16),d' ' dta d' ',b(120),b(224),d}' ',b(56),b(72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40),b(88) dta b(8),b(28),b(12),b(12),b(0),b(0),}b(4),d' ' dta d' ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4}),b(18),b(0),b(16),b(0) dta b(16),b(0),b(0),b(96),b(192),b(12),b(24),d' ' dta d' ',b(120),b(132),b(2),b(130),}b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(133) dta} b(130),b(130),b(130),b(98),b(146),b(44),b(210),b(34) dta d' 'fzl2 equ * dta d' ',b(28),b(28),b(76),b(12}),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(75),b(79),b(19),b(37),b(39),b(66),b(32) dta b(34),b(112),b}(96),b(96),b(0),b(0),b(34),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta b(88),b(64),b(32),b(16),b(8}),b(8),b(24),b(44),b(92) dta b(84),b(6),b(14),b(6),d' ' dta d' ',b(96),b(48),b(112),b(115),b(56),b(6),b}(4) dta b(32) dta b(4),b(16),b(20),b(32),b(36),b(18),b(0),b(16),b(0) dta b(8),b(8),d' ',b(102),b(204),d' '} dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(128),b(}128),b(128),b(64),b(64),b(64),b(129) dta b(130),b(129),b(129),b(145),b(153),b(102),b(153),b(17) dta d' 'fzl3 e}qu * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(75),b(79),b(19),}b(5),b(39),b(2),b(32) dta b(96),b(112),b(48),b(48),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) } dta b(88),b(64),b(32),b(16),b(8),b(40),b(24),b(44),b(84) dta b(22),b(14),b(6),d' ' dta d' ',b(96),b(4}8),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(32),b(36),b(18),b(0),b(16),b(8) dta b(8),d' } ',b(6),b(60),b(112),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(12}8) dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(65) dta b(130),b(129),b(129),b(73),b(78),b(57),b(66),b(140)} dta d' 'fzl4 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),}b(47),b(43),b(111),b(43),b(5),b(7),b(2),b(8) dta b(8),b(32),b(0),b(24),d' ' dta d' ',b(120),b(224),d' } ',b(56),b(72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40),b(16) dta b(48),b(24),b(24),d' ' dta} d' ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(}32) dta d' ',b(4),b(4),b(4),b(24),b(56),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128}),b(65),b(73),b(64),b(128) dta b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(69) dta b(70),b(68),b(68),b(34),b(34}),b(26),b(36),b(68) dta d' 'fzl5 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b}(23) dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(10),b(8) dta b(12),b(20),b(12),b(12),d' ' dta d' } ',b(120),b(224),d' ',b(56),b(72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(56),b(64),b(48) dta b(112),b(104),d}' ',b(4),d' ' dta d' ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(}16),b(4),b(18),b(0),b(48),b(64) dta d' ',b(96),b(192),b(12),b(24),d' ' dta d' ',b(120),b(132),b(2),b(130),b}(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(133) dta }b(134),b(130),b(130),b(114),b(146),b(44),b(210),b(34) dta d' 'fzl6 equ * dta d' ',b(28),b(28),b(76),b(12}),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(2),b(68) dta b(8),b(22),b(6),}b(6),d' ',b(34),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(}56),b(44),b(24) dta b(52),b(104),b(96),b(96),d' ' dta d' ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) } dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32) dta b(64),d' ',b(102),b(204),d' ' dt}a d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(128),b(128),b(12}8),b(64),b(64),b(64),b(65) dta b(130),b(30),b(128),b(153),b(153),b(102),b(153),b(17) dta d' 'fzl7 equ * }dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),}b(2),b(72) dta b(6),b(86),b(6),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta b(88),b(64),b(}64),b(0),b(16),b(40),b(24),b(44),b(20) dta b(56),b(40),b(48),b(48),d' ' dta d' ',b(96),b(48),b(112),b(1}15),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32) dta b(64),d' ',b(6),b(6}0),b(112),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta }b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(65) dta b(130),b(129),b(129),b(73),b(78),b(57),b(66),b(140) dta d' } 'fzp0 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dt}a b(196),b(244),b(212),b(246),b(212),b(160),b(224) dta b(64),d' ',b(4),d' ' dta d' ',b(30),b(7),d' } ',b(28),b(18) dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(24) dta b(28),b(24),b(24),b(24),d' ' d}ta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b}(4),d' ' dta b(32),b(32),b(32),b(24),b(28),d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta }b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162),b(98),b(34) dta b(34),b(68),b(68),b(88),b(36)},b(34),d' 'fzp1 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(19}6),b(244),b(212),b(246),b(212),b(160),b(228) dta b(66),b(36),b(38),b(6),b(8),d' ' dta d' ',b(30),b(7),d'} ',b(28),b(18) dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(26) dta b(16),b(56),b(48),b(48),b(0),b(0),b(3}2),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),}b(72),b(0),b(8),b(0),b(8) dta b(0),b(0),b(6),b(3),b(48),b(24),d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(1}93),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(161),b(65),b(65) dta b(65),b(70)},b(73),b(52),b(75),b(68),d' 'fzp2 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(2}32) dta b(196),b(244),b(210),b(242),b(200),b(164),b(228) dta b(66),b(4),b(68),b(16),b(6),b(6),d' ',b(68),d' ' } dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(4),b(8),b(16),b(16),b(24),b(52),b(58) dta b(42),}b(96),b(112),b(86),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta b(32),b(8}),b(40),b(4),b(36),b(72),b(0),b(8),b(0) dta b(16),b(16),d' ',b(102),b(51),d' ' dta d' ',b(30),b(33),b(64),b}(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(129),b(65),b(129) }dta b(129),b(137),b(153),b(102),b(153),b(136),d' 'fzp3 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12}) dta b(192),b(232) dta b(196),b(244),b(210),b(242),b(210),b(160),b(228) dta b(64),b(4),b(16),b(14),b(12),b(12}),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(4),b(8),b(16),b(20),b(24),b(52),b(42) } dta b(104),b(112),b(96),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta} b(32),b(8),b(40),b(4),b(36),b(72),b(0),b(8),b(16) dta b(16),d' ',b(96),b(60),b(14),d' ' dta d' ',b(30),b(3}3),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(130),b(65),b(}129) dta b(129),b(146),b(114),b(156),b(66),b(49),d' 'fzp4 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b}(16),b(12) dta b(192),b(232) dta b(196),b(244),b(212),b(246),b(212),b(160),b(224) dta b(64),b(16),b(16),b(4),b}(0),b(24),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),}b(8),b(12) dta b(24),b(24),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) } dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4),d' ' dta b(32),b(32),b(32),b(24),b(28),d' ' dta d' ',b}(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162),}b(98),b(34) dta b(34),b(68),b(68),b(88),b(36),b(34),d' 'fzp5 equ * dta d' ',b(56),b(56),b(50),b(48),b(48)},b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(212),b(246),b(212),b(160),b(224) dta b(80),b(16),b(48),b(40}),b(48),b(48),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(2),b(0),b(8),b(20),b(28),b(}2),b(12) dta b(14),b(22),d' ',b(32),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b}(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(12),b(12) dta d' ',b(6),b(3),b(48),b(24),d' ' dta d' }',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(16}1),b(97) dta b(65),b(65),b(78),b(73),b(52),b(75),b(68),d' 'fzp6 equ * dta d' ',b(56),b(56),b(50),b(48),b(}48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(212),b(246),b(212),b(160),b(224) dta b(64),b(34),b(16),b}(104),b(96),b(96),d' ',b(68),d' ' dta b(0) dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(2)},b(0),b(8),b(20),b(28),b(52),b(24),b(44) dta b(22),b(6),b(6),d' ' dta d' ',b(6),b(12),b(14),b(206),b(10 }8),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4) dta b(2),d' ',b(102),b(51),d'  } ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1) },b(2),b(2),b(2),b(130),b(65) dta b(65),b(129),b(153),b(153),b(102),b(153),b(136),d' 'fzp7 equ * dta d' ' },b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(212),b(246),b(212),b(160),b(224)  } dta b(64),b(18),b(86),b(106),b(96),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(2}),b(0),b(8),b(20),b(24),b(52),b(40) dta b(28),b(20),b(12),b(12),d' ' dta d' ',b(6),b(12),b(14),b(206),b}(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4) dta b(2),d' ',b(96),b(60),b(}14),d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(}1),b(1),b(2),b(2),b(4),b(130),b(65),b(129) dta b(129),b(146),b(114),b(156),b(66),b(49),d' '}fzol0 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(43),b(11}1),b(43),b(5),b(7),b(2),d' ' dta b(32),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta b(88}),b(64),b(64),b(0),b(16),b(40),b(24),b(40) dta b(24),b(56),b(24),b(24),b(24),d' ' dta d' ',b(96),b(48),}b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32) dta d' ',b(}24),b(56),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta }b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(69) dta b(70),b(68),b(68),b(36),b(36),b(24),b(36),b(68) dta d' '}fzol1 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(75),b(79}),b(19),b(5),b(7),b(2),b(64) dta b(64),b(32),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta} b(88),b(64),b(32),b(16),b(8),b(40),b(24),b(40),b(16) dta b(48),b(24),b(24),d' ' dta d' ',b(96),b(48),}b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(32),b(36),b(18),b(0),b(16),b(32) dta d' ',b(}24),b(48),b(0),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) } dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(141) dta b(138),b(136),b(68),b(36),b(24),b(36),b(72),b(48) dta} d' 'fzol2 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(}75),b(31),b(43),b(5),b(7),b(66),b(64) dta b(32),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72)  } dta b(88),b(64),b(32),b(0),b(16),b(40),b(40),b(16),b(48) dta b(24),d' ' dta d' ',b(96),b(48),b(112)!},b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(96),b(4),b(18),b(16),b(32),d' ' dta b(24),b(56),d' "} ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(1#}28),b(128),b(128),b(64),b(64),b(64),b(141) dta b(138),b(68),b(56),b(36),b(68),b(56),d' '$}fzop0 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(%}212),b(246),b(212),b(160),b(224) dta b(64),d' ',b(4),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) &} dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(24) dta b(28),b(24),b(24),b(24),d' ' dta d' ',b(6'}),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4) dta d' (} ',b(24),b(28),d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta)} b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162),b(98),b(34) dta b(34),b(36),b(36),b(24),b(36),b(34),d' 'fzop1 equ * *} dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(210),b(242),b(200),+}b(160),b(224) dta b(64),b(2),b(2),b(4),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(,}2),b(4),b(8),b(16),b(20),b(24),b(20),b(8) dta b(12),b(24),b(24),d' ' dta d' ',b(6),b(12),b(14),b(206),-}b(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(4),b(36),b(72),b(0),b(8),b(4) dta d' ',b(24),b(12),b(0),.}d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b/}(1),b(2),b(2),b(4),b(162),b(81),b(17) dta b(34),b(36),b(24),b(36),b(18),b(12),d' 'fzop2 equ * dta d' ',b(0}56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(210),b(248),b(212),b(160),b(224) 1} dta b(66),b(2),b(4),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(4),b(0),b(8),b(202}),b(20),b(8),b(12),b(24) dta d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4)3} dta b(32),b(8),b(40),b(6),b(32),b(72),b(8),b(4),d' ' dta b(24),b(28),d' ' dta d' ',b(30),b(33),b(644}),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(177),b(81),b(34) 5} dta b(28),b(36),b(34),b(29),d' '_pmXY equ * ldx _pos_x lda _pos_Y 6} sec sbc _jmp_Yposition tay lda _faza_nr stx 53248 7} stx 53249 stx 53250 stx 53251 asl @ tax l8}da _fz_table,x sta __zero lda _fz_table+1,x sta __zero+1 tya 9} tax stx _memory ldy #0_sp0 lda (__zero),y sta pmadres+10:}24,x inx iny cpy #34 bne _sp0 ldx _memory_sp2 ;} lda (__zero),y sta pmadres+1280,x inx iny cpy #68 <} bne _sp2 ldx _memory_sp3 lda (__zero),y sta pmadres+1536,x =}inx iny cpy #102 bne _sp3 jsr _dymek ldx _memory>}_sp4 lda (__zero),y sta pmadres+1792,x inx iny cpy #13?}6 bne _sp4 rts_service_nr dta b(0)_new_joy dta b(0)_old_joy dta b(0)_faza_@}nr dta b(0)_jmp_counter dta b(0)_jmp_Yposition dta b(0)_fz0_5 dta b(0)_pos_X dta b(100)_pos_Y A} dta b($71)_fz05 dta b(0)_posX dta b(0)_posY dta b(0)granica dta b(0)_jmp_table B} equ * dta b(3),b(6),b(8),b(10),b(12),b(14),b(16),b(17),b(18) dta b(19),b(19),b(20),b(20),b(21),b(21),b(21),b(2C}0),b(20) dta b(19),b(19),b(18),b(17),b(16),b(14),b(12),b(10),b(8) dta b(6),b(3),b(0)_fz_table equ * D} dta a(fzl0),a(fzl1),a(fzl2),a(fzl3),a(fzl4),a(fzl5) dta a(fzl6),a(fzl7),a(fzp0),a(fzp1),a(fzp2),a(fzp3) dta a(fzp4E}),a(fzp5),a(fzp6),a(fzp7),a(fzol0),a(fzop0) dta a(fzol0),a(fzol1),a(fzol2) dta a(fzop0),a(fzop1),a(fzop2)fzp4y_fztable dta a(_kreciolek) dta a(_cipurek) dta a(_ufo) dta a(_ufo2) G} dta a(_elektra) dta a(_2elektra)_2elektra equ * dta a(_2el1),a(_2el1+64),a(_2el1+128) H} dta a(_2el1+192),a(_2el1+256),a(_2el1+320) dta a(_2el1+384),a(_2el1+448)_elektra equ * dta a(_el1 I}),a(_el1+64),a(_el1+128) dta a(_el1+192),a(_el1+256),a(_el1+320) dta a(_el1+384),a(_el1+448)_ufo2 equ J}* dta a(_uf2_),a(_uf2_+64),a(_uf2_+128) dta a(_uf2_+192),a(_uf2_+256),a(_uf2_+320) dta a(_uf2_+384),a(_uf2 K}_+448)_ufo equ * dta a(_uf1_),a(_uf1_+64),a(_uf1_+128) dta a(_uf1_+192),a(_uf1_+256),a(_uf1_+320) L} dta a(_uf1_+384),a(_uf1_+448)_kreciolek equ * dta a(_kr1),a(_kr1+64),a(_kr1+128) dta a(_kr1+192),a(_k M}r1+256),a(_kr1+320) dta a(_kr1+384),a(_kr1+448)_cipurek equ * dta a(_ci1),a(_ci1+64),a(_ci1+128) N}dta a(_ci1+192),a(_ci1+256),a(_ci1+320) dta a(_ci1+384),a(_ci1+448)_ci1 equ * dta b(3),b(3),b(0),b(8 O}),b(8),b(0),b(0),b(242) dta b(192),b(192),b(0),b(32),b(32),b(0),b(0),b(79) dta d' ' dta b(241), P}b(0),b(0),b(8),b(8),b(0),b(3),b(3) dta b(143),b(0),b(0),b(32),b(32),b(0),b(192),b(192) dta d' ' Q} dta d' ',b(2),b(2),b(0),b(15) dta b(0),b(240),b(240),b(0),b(8),b(8),b(0),b(15) dta d' ' d R}ta b(15),b(0),b(2),b(2),d' ' dta b(15),b(0),b(8),b(8),b(0),b(240),b(240),b(0) dta d' ' dta S} d' ',b(0),b(0),b(60),b(60),d' ',b(255) dta d' ' dta d' ',b(255),d' ',b(60),b(60), T}d' ' dta d' ' dta d' ',b(15),b(15),b(0),b(0),b(15) dta d' ' U} dta b(15),b(0),b(0),b(15),b(15),d' ' dta d' ' dta d' ',b(3),b(3),b(0),b(15) V} dta d' ',b(192),b(192),b(0),b(240) dta d' ',b(15),b(0),b(3),b(3),d' ' dta b(240),b(0),b(192) W},b(192),d' ' dta d' ',b(15),d' ',b(240),b(240),b(15) dta d' ',d' ',b(1 X}5),d' ',b(15),b(240) dta b(240),d' ' dta d' ',b(60),b(60),b(0),b(255) d Y}ta d' ',b(255),b(0),b(60),b(60) dta d' ' dta d' ',b(15),b(15) Z},b(0),b(0),b(240) dta d' ',b(240),d' ',b(240),b(0),b(0) dta b(15),b(15),d' ',b(240),d' [} '_kr1 equ * dta b(0),b(3),b(3),d' ',b(131) dta b(0),b(192),b(192),b(160),b(40),b(40),b(10),b(2 \}02) dta d' ' dta b(163),b(160),b(40),b(40),b(40),b(3),b(3),b(0) dta b(194),d' ',b(192),b(192 ]}),b(0) dta d' ' dta b(0),b(15),b(15),d' ',b(2) dta d' ',b(168),b(42),b(10),b(2),b(160),b ^}(248) dta d' ',b(128),b(128),b(128),b(0),d' ' dta b(2),b(32),b(40),b(42),b(10),b(2),b(0),b(0) dta b( _}248),b(160),b(0),b(0),b(128),b(175),b(15),b(0) dta d' ' dta d' ',b(2),b(15),b(15),d' ' dta `} b(10),b(170),b(160),d' ',b(60) dta b(0),b(128),b(160),d' ' dta d' ',b(10),b(2),b(0) dta b( a}60),d' ',b(130),b(170),b(160) dta d' ',b(240),b(240),b(128),d' ' dta d' ',b(3),b(3),b(0) d b}ta b(10),b(42),b(168),b(160),b(128),b(192),b(192),b(15) dta b(128),d' ' dta b(15),d' ',b(2 c}),b(10),b(42),b(0),b(60),b(60),b(32) dta b(160),b(160),b(128),d' ' dta d' ',b(2),b(10),b(42),b(40) d},b(40),b(32),b(0) dta b(243),b(160),b(128),d' ',b(207),d' ' dta d' ',b(243),d' ',b(2),b(10),b e}(207),b(0) dta b(8),b(40),b(40),b(168),b(160),b(128),d' ' dta d' ',b(2),b(10),b(10),b(40),b(40),b( f}40),b(32) dta b(0),b(160),b(128),b(0),b(0),b(3),b(3),b(240),d' ' dta b(192),b(192),b(0) dta d' ',b g}(60),b(60),d' ',b(240),b(2),b(2) dta b(2),b(10),b(42),b(168),b(0),b(128),b(128),b(128) dta b(128),d' ' q}BOHATER ASMBDANE3 ASMBnFDANE5_SPASMBPSPRITE2 ASMB` AIR_FIR4ASMB6mDANE_ATPASMB%INFOFONTASMOATP_CD ASMZGAMEFONTASMqAROUNDT2OBJ dta d' ',b(2),b(2),b(10),b(10) dta b(0),b(40),b(160),b(160),b(128),b(128),b(0),b(60) dta d' ',b(240) r},b(240),b(0),b(32),b(160) dta d' ',b(10),b(8),b(0),b(15),b(15),d' ' dta b(60),b(0),b(2),b(2),b(10),b(10),b s}(40),b(0),b(160) dta b(160),b(128),b(128),d' ' dta d' ',b(2),b(2),b(2),b(2),d' ',b(128) d t}ta b(143),b(0),b(240),b(240),b(0),b(32),b(32),b(40),b(40) dta d' ',b(2),b(2),b(2),d' ' dta b(143),b(128) u},b(128),b(128),b(0),b(240),b(240),b(0) dta b(40),b(40),b(40),b(8),d' '_uf1_ equ * dta d' ',b(19 v}2),b(32),b(8),b(2) dta d' ',b(3),b(8),b(32),b(128) dta d' ' dta b(0),b(3),b(14),b(10),b(63), w}b(255),b(136),b(34) dta b(0),b(128),b(160),b(160),b(252),b(255),b(136),b(34) dta d' ' dta d' x} ',b(48),b(8),b(2),b(0) dta d' ',b(2),b(8),b(160) dta d' ',b(192),d' ' dta d' ' dta d' y} ',b(3),b(2),b(15),b(63),b(34),b(8) dta b(0),b(224),b(168),b(168),b(255),b(255),b(34),b(136) dta d' ',b(192),b( z}0),b(128) dta d' ' dta d' ',b(3),d' ' dta d' ',b(130),b(40) dta d' ',b(192),d' ' {} dta d' ' dta d' ',b(3),b(15),b(2),b(8) dta b(0),b(56),b(234),b(170),b(255),b(255),b(34),b(136) |}dta d' ',b(192),b(240),b(32),b(128) dta d' ' dta d' ',d' ',b(192),b(32),b(10) dta d' }} ',b(48),b(128),b(0) dta d' ' dta d' ',b(3),b(0),b(2) dta b(0),b(14),b(58),b(42),b(255),b(255),b(1 ~}36),b(34) dta d' ',b(128),b(128),b(240),b(252),b(136),b(32) dta d' ' dta d' ',b(12),b(2 }) dta d' ',b(48),b(128),d' ' dta d' ',b(0),b(3),b(14),b(10),b(63),b(255),b(136) dta b(34),b }(0),b(128),b(160),b(160),b(252),b(255),b(136) dta b(34),d' ' dta d' ',b(3),b(0) dta d' } ',b(12),b(160),d' ' dta d' ',b(3),b(2),b(15),b(63),b(34),b(8) dta b(0),b(224),b(168),b(168),b(2 }55),b(255),b(34),b(136) dta d' ',b(192),b(0),b(128) dta d' ',b(3),d' ' dta d' ',b(130) },b(40),d' ',b(192),d' ' dta d' ',b(3),b(15),b(2),b(8) dta b(0),b(56),b(234),b(170),b(255),b(255),b( }34),b(136) dta d' ',b(192),b(240),b(32),b(128) dta d' ' dta d' ',b(192),b(32),b(10),d' } ',b(48),b(128),b(0) dta d' ',b(3),b(0),b(2) dta b(0),b(14),b(58),b(42),b(255),b(255),b(136),b(34) } dta b(0),b(0),b(128),b(128),b(240),b(252),b(136),b(32)_uf2_ equ * dta d' ' dta } d' ' dta b(0),b(3),b(13),b(5),b(63),b(255),b(136),b(34) dta b(0),b(64),b(80),b(80),b(252),b(255),b( }136),b(34) dta d' ' dta d' ' dta d' ' dta d' ',b(3),b(1), }b(15),b(63),b(34),b(8) dta b(0),b(208),b(84),b(84),b(255),b(255),b(34),b(136) dta d' ',b(192),b(0),b(128),d' } ' dta d' ' dta d' ' dta d' ',b(3),b(15),b(2),b(8) dta b(0),b(40 }),b(170),b(170),b(255),b(255),b(34),b(136) dta d' ',b(192),b(240),b(32),b(128),d' ' dta d' } ' dta d' ' dta d' ',b(3),b(0),b(2) dta b(0),b(10),b(42),b(42),b(255),b(255),b(136),b(34 }) dta d' ',b(128),b(128),b(240),b(252),b(136),b(32) dta d' ' dta d' ' dta d' } ' dta d' ',b(3),b(15),b(15),b(63),b(255),b(136),b(34) dta b(0),b(192),b(240),b(240),b(252),b(25 }5),b(136),b(34) dta d' ' dta d' ' dta d' ' dta d' ',b(3 }),b(3),b(15),b(63),b(34),b(8) dta b(0),b(240),b(252),b(252),b(255),b(255),b(34),b(136) dta d' ',b(192),b(0),b(1 }28) dta d' ' dta d' ' dta d' ',b(3),b(15),b(2),b(8) dta b(0) },b(40),b(170),b(170),b(255),b(255),b(34),b(136) dta d' ',b(192),b(240),b(32),b(128) dta d' ' } dta d' ' dta d' ',b(3),b(0),b(2) dta b(0),b(10),b(42),b(42),b(255),b(255),b(136),b( }34) dta d' ',b(128),b(128),b(240),b(252),b(136),b(32)_el1 equ * dta d' ',b(248),b(242),b(128),b(12 }8),b(128),b(35) dta d' ',b(143),b(47),b(2),b(2),b(2),b(200) dta d' ' dta b(15),b(14),b(14),b(0 }),b(59),b(156),b(212),b(46) dta b(160),b(160),b(144),b(0),b(184),b(31),b(22),b(236) dta d' ' }dta d' ',b(62),b(60),b(32),b(32),b(32),b(8) dta d' ',b(35),b(139),d' ',b(242) dta d' ',b(192),b(192),b(128),b( }128),b(128),b(0) dta d' ' dta b(3),b(3),b(3),b(0),b(14),b(39),b(53),b(11) dta b(232),b(168),b(164),b(0) },b(238),b(7),b(5),b(187) dta d' ',b(192),b(128),d' ' dta d' ',b(14),b(11),b(8),b(8),b(8),b(2) d }ta d' ',b(34),b(136),d' ',b(60) dta d' ',b(224),b(176),b(32),b(32),b(32),b(128) dta d' ' dta d' } ',b(3),b(9),b(13),b(2) dta b(250),b(234),b(233),b(0),b(187),b(65),b(193),b(238) dta d' ',b(128),b(112),b(224),b }(192) dta d' ' dta d' ',b(2),b(3),b(2),b(2),b(2),b(0) dta d' ',b(200),b(162),d' ',b(143) dta } d' ',b(184),b(44),b(8),b(8),b(8),b(32),d' ' dta d' ',b(2),b(3),b(0) dta b(62),b(58),b(58),b(0),b(238) },b(80),b(112),b(187) dta b(128),b(128),b(64),b(0),b(224),b(92),b(120),b(176) dta d' ' dta d' } ',b(248),b(242),b(128),b(128),b(128),b(35) dta d' ',b(143),b(47),b(2),b(2),b(2),b(200),d' ' dta d' } ',b(15),b(14),b(14),b(0),b(46),b(212),b(180) dta b(59) dta b(160),b(160),b(144),b(0),b(236),b(22),b(55),b(184) } dta d' ' dta d' ',b(62),b(60),b(32),b(32),b(32),b(8) dta d' ',b(35),b(139),d' ',b(242),d' }',b(192),b(192) dta b(128),b(128),b(128),b(0) dta d' ',b(3),b(3),b(3),b(0),b(11),b(53),b(45) dta b(14) },b(232),b(168),b(164),b(0),b(187),b(5),b(13) dta b(238),d' ',b(128),b(192),b(0) dta d' ',b(14),b(11 }),b(8),b(8),b(8),b(2) dta d' ',b(34),b(136),d' ',b(60) dta d' ',b(224),b(176),b(32),b(32),b(32),b(128) dt }a d' ',b(2),b(15),b(9),b(3) dta b(250),b(234),b(233),b(0),b(238),b(67),b(65),b(187) dta d' ',b(192),b }(96),b(112),b(128) dta d' ',b(3),b(2),b(2),b(2),b(2),b(0) dta d' ',b(136),b(226),d' ',b(15),d' ',b( }184),b(44) dta b(8),b(8),b(8),b(32) dta d' ',b(3),b(2),b(0) dta b(62),b(58),b(58),b(0),b(187),b(2 }08),b(80),b(238) dta b(128),b(128),b(64),b(0),b(176),b(216),b(92),b(224)_2el1 equ * dta b(248),b(242 }),b(128),b(128),b(128),b(35),b(15),b(14) dta b(143),b(47),b(2),b(2),b(2),b(200),b(160),b(160) dta d' } ' dta b(14),b(10),b(34),b(128),b(128),b(128),b(242),b(248) dta b(144),b(144),b(72),b(2),b(2),b(2),b(47),b(143) } dta d' ' dta b(0),b(62),b(60),b(32),b(32),b(8),b(3),b(3) dta b(0),b(35),b(139),b(0),b(0),b(242), }b(232),b(168) dta b(0),b(192),b(192),b(128),b(128),d' ' dta b(3),b(2),b(8),b(32),b(32),b(60),b(62),b(0) } dta b(164),b(164),b(146),b(0),b(0),b(139),b(35),b(0) dta d' ',b(128),b(128),b(192),b(192),b(0) dta d' }' dta d' ',b(11),b(14),b(8),b(2),b(0),b(0) dta d' ',b(34),b(136),b(0),b(60),b(250),b(234) dta d' ',b(176) },b(224),b(32),b(128),d' ' dta d' ' dta d' ',b(2),b(8),b(11),b(14),d' ' dta b(233),b(169),b(36),b(0), }b(136),b(34),d' ' dta d' ',b(128),b(32),b(176),b(224),d' ' dta d' ',b(2),b(3),d' ' dta d' ' },b(200),b(162),b(143),b(62),b(58) dta d' ',b(172),b(56),b(32),b(128),b(128),d' ' dta d' ',b(2),b(3),d' } ' dta b(58),b(42),b(137),b(226),b(136),d' ' dta b(64),b(64),b(32),b(44),b(184),d' ' dta d' } ',b(248),b(242),b(35),b(15),b(14) dta d' ',b(143),b(47),b(200),b(160),b(160),d' ' dta d' ',b }(14),b(10),b(34),b(242),b(248),d' ' dta b(144),b(144),b(72),b(47),b(143),d' ' dta d' ',b(62 }),b(60),b(32),b(8),b(3),b(3) dta d' ',b(35),b(139),b(0),b(242),b(232),b(168) dta d' ',b(192),b(192),b(128),d' ' } dta d' ',b(3),b(2),b(8),b(32),b(60),b(62),d' ' dta b(164),b(164),b(146),b(0),b(139),b(35),d' ' dta d }' ',b(128),b(192),b(192),d' ' dta d' ',b(14),b(11),b(8),b(8),b(2),d' ' dta b(0),b(34),b(136),d' ',b }(60),b(250),b(234) dta b(0),b(224),b(176),b(32),b(32),b(128),d' ' dta d' ',b(2),b(8),b(8),b(11),b(14),b(0 }) dta b(233),b(169),b(36),d' ',b(136),b(34),b(0) dta d' ',b(128),b(32),b(32),b(176),b(224),b(0) dta d' } ',b(2),b(3),b(2),b(2),b(2),d' ' dta b(200),b(162),d' ',b(15),b(62),b(58) dta b(172),b(56),b(8),b(8),b(8),b( }32),b(128),b(128) dta d' ',b(2),b(2),b(2),b(3),b(2) dta b(58),b(42),b(137),d' ',b(162),b(200) dta }b(64),b(64),b(32),b(8),b(8),b(8),b(56),b(172),b(2),b(3),b(2) dta b(58),b(42),b(137),d' ',b(162),b(200) dta 3zegar dta b(0),b($00),b($00)nmi equ * jsr *+6 jmp $e462 } jsr m_tact lda tempo+1 cmp #1 beq *+6 dec tempo+1 } rts lda tempo sta tempo+1 lda chnmi beq nam tay } lda (reals),y tax iny lda (reals),y cmp reals+1 } bne *+11 cpx reals bne *+7 lda #3 sta zwolnij+3 } sta reals+1 stx reals jsr _newwsp jsr translacja js }r _do_zebrania lda #0 sta chnmi sta firadr sta secadr } lda #255 sta spnr ldy #255 dec reals+1 lda (reals),y } and #%00000011 sta tempo inc reals+1 rtsnam inc zegar } lda zegar cmp #60 bne zeg2 lda #0 sta zegar } sed lda zegar+2 bne zeg3 lda #$60 sta zegar+2 } lda zegar+1 sec sbc #1 sta zegar+1zeg3 lda zegar+2 } sec sbc #1 sta zegar+2 cld lda zegar+2 jsr _inf }2 stx info+29 sty info+28 lda zegar+1 jsr _inf2 st }x info+26 sty info+25zeg2 lda spkontrolbyte and #%00010000 beq n4 } lda #255 sta spnrn4 inc spnr lda spnr cmp #4 } bne n2 lda #0 sta spnrn2 ldx spnr lda stend,x } sta start ldy #0 ldx start_loop lda dane,x sta X_old,y } iny inx cpy #9 bne _loop jsr killlife ldy #0 } ldx start_loop2 lda X_old,y sta dane,x iny inx } cpy #9 bne _loop2 rtskilllife equ * lda spkontrolbyte } and #%00001000 bne defnr lda 53770 cmp #1 bcs wysexit } lda spkontrolbyte ora #%00001000 sta spkontrolbytewysexit rtsdefnr }equ * lda Xaktual and #%10000000 beq defprawo lda dfnr } and #%00001111 asl @ jmp defnr_defprawo lda dfnr lsr @ } lsr @ lsr @defnr_ tay lda _fztable,y sta def lda _fzt }able+1,y sta def+1spkier equ * lda Xaktual and #%01111111 } cmp minX beq kierchange cmp maxX bne movespkierchange lda Xaktual } eor #%10000000 sta Xaktualmovesp equ * lda Xaktual and #%1 }0000000 beq _sp_prawo dec Xaktual jmp _loadY_sp_prawo inc Xaktual_loadY } equ * lda spkontrolbyte and #%00000111 sta Y_old lda sp }nr asl @ tay lda znspadres,y sta zn lda znspadres }+1,y sta zn+1 lda firstold bne empty2 ldx X_old l }dy Y_old jsr locate cmp #112 bcc empty1empty2 ldx X_old } ldy Y_old lda firstold jsr positionempty1 lda secondold bne empty3 } ldx X_old ldy Y_old inx jsr locate cmp #112 } bcc rozpisanieempty3 ldx X_old ldy Y_old inx lda secondold } jsr positionrozpisanie equ * lda Xaktual and #%00000111 asl }@ tay lda (def),y sta sp iny lda (def),y } sta sp+1 lda Xaktual and #%01111111 lsr @ lsr @ } lsr @ sta X_oldzapamietaj equ * ldx X_old ldy Y_old js }r locate sta firstold tay jsr _mnozenie stx firadr } sty firadr+1 ldx X_old ldy Y_old inx jsr locate }sta secondold tay jsr _mnozenie stx secadr sty secadr+1 } jsr animacja jmp showspanimacja equ * lda firadr sta tl } lda firadr+1 sta tl+1 jsr anim jsr zwsp jsr zwzn } lda secadr sta tl lda secadr+1 sta tl+1 jsr anim } jsr zwsp jsr zmzn lda firadr sta tl lda firadr+1 } clc adc #4 sta tl+1 lda zn+1 clc adc #4 } sta zn+1 jsr anim jsr zwsp jsr zwzn lda secadr } sta tl lda secadr+1 clc adc #4 sta tl+1 }jsr anim rtszwsp equ * lda sp clc adc #16 } sta sp bcc zwsp2 inc sp+1zwsp2 rtszwzn equ * lda zn } clc adc #16 sta zn bcc zwzn2 inc zn+1zwzn2 } rtszmzn equ * lda zn sec sbc #16 sta zn } bcs zmzn2 dec zn+1zmzn2 rtsanim equ * ldy #0anim2 lda (s }p),y tax lda (tl),y and table,x ora (sp),y sta (zn }),y iny cpy #16 bne anim2 rtsshowsp equ * } ldy spnr lda znsptable,y ldx X_old ldy Y_old jsr position } ldy spnr lda znsptable,y clc adc #2 ldx X_old } ldy Y_old inx jsr position rtsdana dta b(0)maska d }ta d' 'znsptable equ * dta b(112),b(116),b(120),b(124),b(126)znspadres equ * dta a(fonts+896),a(f }onts+928),a(fonts+960),a(fonts+992)X_old dta b(0)Y_old dta b(0)firstold dta b(0)secondold }dta b(0)Xaktual dta b(0)minX dta b(0)maxX dta b(0)dfnr dta b(0)spkontrolbyte dta b }(0)firadr dta a(0)secadr dta a(0)spnr dta b(0)tempo dta b(1),b(1)start dta }b(0)dane equ * dta d' ' dta d' ' dta d' ' dta d' 'stend equ * } dta b(0),b(9),b(18),b(27)_makemask equ * lda #0 tay sta dana_mak}e2 jsr _make3 inc dana iny bne _make2 rts_make3 } lda dana and #170 eor #255 sta maska lda dana and} #170 lsr @ eor #255 sta maska+1 lda dana and #85} eor #255 sta maska+2 lda dana and #85 asl @ } eor #255 sta maska+3 lda maska and maska+1 and maska+2} and maska+3 sta table,y rts_mnozenie equ * lda _table,y} tax lda _table+1,y clc adc #$b8 tay } rts_maketable equ * ldy #0 sty maketb sty maketb+1loop lda m}aketb+1 sta _table+1,y lda maketb sta _table,y clc  } adc #16 sta maketb bcc loop2 inc maketb+1loop2 iny in }y cpy #128 bne loop rts_newwsp equ * ldy #136  } ldx #0newws2 lda (reals),y sta dane,x iny inx cpx  }#36 bne newws2 rtsmaketb dta b(0),b(0) iny inx cpx Q*_zx rts_air_hero equ * jsr _dec_fuel jsr _obs_ch}_control lda portA and #%00001111 eor #%00001111 sta _old_joy} lda _service_nr cmp #255 beq _zx lda _empty cmp #2}55 beq _emp lda _old_joy and #right bne _air_right } lda _old_joy and #left bne _air_left lda _old_joy and #up } beq _emp jmp _air_up_emp lda _old_joy and #down bne _airdow}n lda _fz05 bne *+6 jsr _ado_kolision rts lda _}faza_nr cmp #3+18 bcs _rt_nothing lda #1+18 sta _faza_nr } rts_rt_nothing lda #4+18 sta _faza_nr rts_airdown jmp _air_down_air_}right equ * jsr _arh_kolision lda _old_joy and #up bne _up_}right lda _old_joy and #down bne _do_right lda #4+18 } sta _faza_nr rts_up_right jsr _aup_kolision lda #5+18 sta _faza_nr } jsr _szum rts_do_right jsr _ado_kolision lda #5+18 sta _faza}_nr jsr _szum rts_air_left equ * jsr _alf_kolision ld}a _old_joy and #up bne _up_left lda _old_joy and #down } bne _do_left lda #1+18 sta _faza_nr rts_up_left jsr _aup_kolision} lda #2+18 sta _faza_nr jsr _szum rts_do_left jsr _ado_kol}ision lda #2+18 sta _faza_nr jsr _szum rts_air_up equ *} jsr _aup_kolision_page jsr _szum lda _faza_nr cmp #3+18  } bcs _rt_up lda #2+18 sta _faza_nr rts_rt_up lda #5+18 !} sta _faza_nr rts_air_down equ * lda strig beq _air_chn "} jsr _ado_kolison jmp _page_air_chn equ * jsr _air_service_air_fire lda #1#}0 sta zwolnij+5 rts_dymek equ * lda _faza_nr cmp #1+18$} beq _dym_left cmp #2+18 beq _dym_left cmp #4+18 b%}eq _dym_right cmp #5+18 beq _dym_right rts_dym_left lda _memory &} clc adc #24 tax lda 53770 and #%00000010 ora'} pmadres+1024+512,x sta pmadres+1024+512,x inx lda 53770 and #%00(}000111 ora pmadres+1024+512,x sta pmadres+1024+512,x inx lda 5377)}0 and #%00000011 ora pmadres+1024+512,x sta pmadres+1024+512,x rt*}s_dym_right lda _memory clc adc #24 tax lda 53770 +} and #%01000000 ora pmadres+1024+512,x sta pmadres+1024+512,x inx ,} lda 53770 and #%11100000 ora pmadres+1024+512,x sta pmadres+1024+512,x -} inx lda 53770 and #%11000000 ora pmadres+1024+512,x s.}ta pmadres+1024+512,x rts_obs_ch_contr equ * lda _faza_nr cmp #16 /} beq _h2 cmp #17 beq _h3 rts_h2 lda #19 sta _fa0}za_nr rts_h3 lda #22 sta _faza_nr rtsmsadres equ pmadres+1}762pociski jsr _movemissile jsr _miskolision lda 644 bne *+5 2} jsr _zapal rts_dec_fuel inc _df_contr lda _df_contr cmp #65 3} bne _dfuelrts lda #0 sta _df_contr lda kieszen+2 beq _2d4}fuelrts sed sec sbc #1 sta kieszen+2 cld_dfuelrts5} rts_2dfuelrts lda #255 sta _empty sta _service_nr lda zwolnij+4 6} bne *+11 lda #$20+2 ldx #1 ldy #12 jsr m_init 7} ldx #0_3df lda _pos_Y cmp rownaj,x bcc _4df inx 8} cpx #23 bne _3df rts_4df lda _pos_Y and #%00001111 9}cmp #1 beq _dfuelrts lda rownaj,x sta _pos_Y rtsrownaj :}equ * dta b($1d) dta b($21),b($25),b($29),b($2d) dta b($31),b($35),b($39),b($3d) dta b($41),b($45),b($49;}),b($4d) dta b($51),b($55),b($59),b($5d) dta b($61),b($65),b($69),b($6d) dta b($71),b($75)_df_contr dta<} b(0)_empty dta b(0)_movemissile equ * ldy #0_mov8 jsr _m=}ov1 iny cpy #4 bne _mov8 rts_mov1 jsr _mov0 >} jsr _mov5 rts_mov5 ldx #0_mov6 lda _misX_position,x sta 53252,x ?} inx cpx #4 bne _mov6 rts_mov0 tya tax @} stx Xmem lda _rejestr sta _2rejestr cpx #0 beq _mov2_mA}ov3 lsr _2rejestr dex bne _mov3_mov2 ldx Xmem lda _2rejestrB} and #1 beq _offmissile lda _2rejestr and #16 beq C}_lwmissile inc _misX_position,x rts_lwmissile dec _misX_position,x_offmissile rtsD}_zapal equ * lda opoznienie beq _zap5 rtsE}_zap5 lda kieszen+1 *(ilosc naboi) bne _zap4 rts_zap4 sed F}sec sbc #1 sta kieszen+1 cld lda #25 sta opoznienG}ie lda #1 sta __maska lda #16 sta __maska+1_zap3 lda _H}rejestr and __maska bne _zap2 lda zwolnij+4 bne *+11 I} lda #$20+1 ldx #28 ldy #16 jsr m_init lda _rejestr J} ora __maska sta _rejestr ldx _pos_X lda __maska cmp #1 K} beq _z1 cmp #2 beq _z2 cmp #4 beq _z3 L}stx _misX_position+3 jsr _ustYmissile stx _misY_position+3 lda msadres,x M} ora #%11000000 sta msadres,x jmp _kierunek_z3 stx _misX_position+2 N} jsr _ustYmissile stx _misY_position+2 lda msadres,x ora #%00110000 O} sta msadres,x jmp _kierunek_z2 stx _misX_position+1 jsr _ustYmissile P} stx _misY_position+1 lda msadres,x ora #%00001100 sta msadres,x Q} jmp _kierunek_z1 stx _misX_position jsr _ustYmissile stx _misY_position R} lda msadres,x ora #%00000011 sta msadres,x jmp _kierunek_zap2 S} asl __maska asl __maska+1 lda __maska cmp #16 beq *+5 T} jmp _zap3 rts_kierunek equ * jsr _herokier cmp #0 U} beq _lewo lda _rejestr ora __maska+1 sta _rejestr rts_lewo V} lda __maska+1 eor #255 sta __maska+2 lda _rejestr and __maW}ska+2 sta _rejestr rts_herokier equ * lda _faza_nr cmp #1X}6 bne _hk2 lda #0 rts_hk2 cmp #17 bne _hk3 Y} lda #1 rts_hk3 cmp #8 bcs _hk4 lda #0 rts_hk4 Z} lda #1 rts_miskolision equ * ldy #0_kol0 tya[} pha jsr _kol1 pla tay iny cpy #4 \} bne _kol0 rts_kol1 tya tax stx Xmem lda ]}_misX_position,x cmp #60 beq _mis_clear cmp #190 beq _mis_clear^} lda _misX_position,x beq _exit sec sbc #$40 lsr @_} lsr @ lsr @ sta Xmissile,x lda _misY_position,x s`}ec sbc #$24 lsr @ lsr @ lsr @ lsr @ a} sta Ymissile,x ldy Ymissile,x lda Xmissile,x tax jsr locate b} jsr r2ozpelement tax cpx #0 bne _mis_clear_exit rts_c}mis_clear equ * ldx Xmem lda #0 sta _misX_position,x lda _rd}ejestr and cltable,x sta _rejestr lda _misY_position,x tay e} lda msadres,y and cl2table,x sta msadres,y rts_ustYmissile equ * f} lda _pos_Y sec sbc _jmp_Yposition clc adc #23 g} tax rts_szum equ * lda zwolnij+4 bne *+11 lh}da #$20+2 ldx #23 ldy #14 jsr m_init rtscltable equ * i} dta b(%11101110),b(%11011101),b(%10111011),b(%01110111)cl2table equ * dta b(%11111100),b(%11110011),bj}(%11001111),b(%00111111)_rejestr dta b(%00000000)_2rejestr dta b(0)Xmem dta b(0)_misX_position dk}ta d' '__maska dta d' 'opoznienie dta b(0)_misY_position dta d' 'Xmissile dta d' 'Ymissile l} dta d' ' dta d' 'opoznienie dta b(0)_misY_position dta d' 'Xmissile dta d' 'Ymissile go_disp equ * dta d'ppppppppp',b(64+5),a(go_txt) dta d'p' dta b(4),d' ' dta b(4),d' ' dta bn}(4),d' ' dta b(4),d' ' dta b(4) dta b(65),a(go_disp)go_txt equ * dta d' KONIEC GRY o} ' dta d' [\ _ _ _ _ __ [\' dta d' ]^ NIESTETY NIE UDA O CI SI ]^' dta d'_ OCALI ZIEMII Pp}RZED ZAG AD. ' dta d'[\ ZIEMIA ZOSTA A ZNISZCZONA. _' dta d']^ _ _ _ _ _ __ _ 'fi_disp equq} * dta d'ppppppppp',b(64+5),a(fi_txt) dta d'p' dta b(4),d' ' dta b(4),d' ' dta b(4),d' ' dr}ta b(4),d' ' dta b(4) dta b(65),a(fi_disp)fi_txt equ * dta d' MISJA WYKONANA ' dta d' s}[\ _ _ _ _ __ [\' dta d' ]^ZDY E NA CZAS DOSTARCZY]^' dta d'_ NA ZIEMI SUPER BRO ATOMOW. ' t} dta d'[\ ZIEMIA ZOSTA A OCALONA. _' dta d']^ _ _ _ _ _ __ _ 'piontable equ * dta b(0u}),b(16),b(32) dta b(48),b(64),b(80) dta b(96),b(112)displaylist equ * dta b(112),b(112),b($f0) dv}ta b(196),a(screen) dta b(196),a(screen) dta b(196),a(screen+32) dta b(196),a(screen+32) dta b(196),a(scrw}een+64) dta b(196),a(screen+64) dta b(196),a(screen+96) dta b(196),a(screen+96) dta b(196),a(screen+128)x} dta b(196),a(screen+128) dta b(196),a(screen+160) dta b(196),a(screen+160) dta b(196),a(screen+192) y}dta b(196),a(screen+192) dta b(196),a(screen+224) dta b(68),a(screen+224) dta b($f0) dta b(64+4),a(inforz}mator) dta b(4),b(4),b(4),b(4) dta b(65),a(displaylist)screen equ * dta d' {} ' dta d' ' dta d' ' dta d' |} ' dta d' ' dta d' ' dta d' }} ' dta d' 'informator equ *linia dta d'~}' dta d'    ;< ENERGIA:CZAS: ' dta d'   ` => #!!!}!!! 'info dta d' 00 00 00 00 00 !!!!!!! 00:00 ' dta d''c}hbastable equ * dta h(fonts),h(fonts+1024) dta h(fonts),h(fonts+1024) dta h(fonts),h(fonts+1024) dta} h(fonts),h(fonts+1024) dta h(fonts),h(fonts+1024) dta h(fonts),h(fonts+1024) dta h(fonts),h(fonts+1024) }dta h(fonts),h(fonts+1024) dta h(infofonts)_zapkontrol dta b(0)fzzap dta b(0),b(16),b(32),b(48)pozdan } equ * dta b(163),b(143),b(60),b(79),b(83),b(84),b(19),b(0) dta b(192),b(20),b(192),b(4),b(192),b(240),b(60),b(240}) dta b(163),b(164),b(83),b(79),b(60),b(79),b(19),b(0) dta b(60),b(240),b(192),b(4),b(192),b(4),b(192),b(240) }dta b(163),b(164),b(83),b(84),b(83),b(79),b(60),b(15) dta b(192),b(240),b(60),b(240),b(192),b(4),b(192),b(0) dta b(}60),b(143),b(83),b(84),b(83),b(84),b(19),b(15) dta b(192),b(20),b(192),b(240),b(60),b(240),b(192),b(0)poz2dan eq}u * dta b(83),b(79),b(60),b(79),b(19),b(68),b(19),b(0) dta b(197),b(37),b(197),b(21),b(197),b(240),b(60) dta b}(240),b(83),b(84),b(83),b(79),b(60),b(79),b(19) dta b(0),b(60),b(241),b(197),b(21),b(197),b(20) dta b(193),b(240),b}(83),b(84),b(83),b(68),b(19),b(79) dta b(60),b(15),b(197),b(241),b(60),b(241),b(197) dta b(20),b(193),b(0),b(60),b(}79),b(83),b(68),b(19) dta b(68),b(19),b(15),b(197),b(37),b(197),b(241) dta b(60),b(240),b(193),b(0)pindan }equ * dta b(165),b(165),b(85),b(85),b(69),b(48),b(116),b(220) dta b(80),b(84),b(80),b(68),b(0),b(48),b(166),b(220)} dta b(165),b(165),b(85),b(85),b(81),b(76),b(29),b(55) dta b(80),b(84),b(80),b(68),b(16),b(76),b(29),b(55) dta }b(165),b(165),b(85),b(85),b(84),b(19),b(71),b(205) dta b(80),b(84),b(80),b(68),b(16),b(3),b(71),b(205) dta b(165),b}(165),b(85),b(85),b(21),b(196),b(209),b(115) dta b(80),b(84),b(80),b(68),b(16),b(192),b(209),b(115)pin2dan equ *} dta b(205),b(71),b(3),b(68),b(16),b(68),b(16),b(0) dta b(205),b(71),b(19),b(84),b(85),b(84),b(17),b(0) dta b(}115),b(209),b(192),b(4),b(16),b(68),b(16),b(0) dta b(115),b(209),b(196),b(21),b(85),b(84),b(17),b(0) dta b(220),b(1}16),b(48),b(68),b(16),b(68),b(16),b(0) dta b(220),b(116),b(49),b(68),b(85),b(84),b(17),b(0) dta b(55),b(29),b(76),b}(64),b(16),b(68),b(16),b(0) dta b(55),b(29),b(76),b(81),b(85),b(84),b(17),b(0)koddoor equ * dta b(255),b(255}),b(234),b(229),b(229),b(234),b(239),b(234) dta b(255),b(253),b(169),b(169),b(169),b(185),b(169),b(153) dta b(255),b(}255),b(234),b(229),b(229),b(234),b(238),b(234) dta b(255),b(253),b(169),b(169),b(169),b(153),b(168),b(185) dta b(255)},b(255),b(234),b(229),b(229),b(234),b(239),b(234) dta b(255),b(253),b(169),b(169),b(169),b(153),b(169),b(153) dta b(2}55),b(255),b(234),b(239),b(239),b(234),b(239),b(234) dta b(255),b(253),b(169),b(169),b(169),b(153),b(169),b(153)kod2door} equ * dta b(239),b(234),b(239),b(234),b(239),b(234),b(213),b(85) dta b(169),b(153),b(169),b(153),b(169),b(169)},b(85),b(85) dta b(239),b(234),b(239),b(234),b(239),b(234),b(213),b(85) dta b(169),b(153),b(168),b(153),b(169),b(169)},b(85),b(85) dta b(239),b(234),b(239),b(234),b(239),b(234),b(213),b(85) dta b(169),b(185),b(169),b(153),b(169),b(169)},b(85),b(85) dta b(239),b(234),b(239),b(234),b(239),b(234),b(213),b(85) dta b(169),b(153),b(169),b(185),b(169),b(169)},b(85),b(85)lasdoor equ * dta b(40),b(20),b(40),b(60),b(40),b(20),b(40),b(60) dta b(40),b(20),b(40),b(60),b(4}0),b(20),b(40),b(60) dta b(60),b(40),b(20),b(40),b(60),b(40),b(20),b(40) dta b(60),b(40),b(20),b(40),b(60),b(40),b(20}),b(40) dta b(40),b(60),b(40),b(20),b(40),b(60),b(40),b(20) dta b(40),b(60),b(40),b(20),b(40),b(60),b(40),b(20) d}ta b(20),b(40),b(60),b(40),b(20),b(40),b(60),b(40) dta b(20),b(40),b(60),b(40),b(20),b(40),b(60),b(40)kosmozap equ} * dta b(7),b(29),b(52),b(29),b(7),b(1),b(0),b(1) dta b(64),d' ',b(64),b(208),b(112),b(208) dta b(0),b(1),b(7),}b(29),b(52),b(29),b(7),b(1) dta b(116),b(208),b(64),d' ',b(64),b(208) dta b(7),b(1),b(0),b(1),b(7),b(29),b(52),b(29}) dta b(64),b(208),b(112),b(208),b(64),d' ' dta b(116),b(29),b(7),b(1),b(0),b(1),b(7),b(29) dta b(0),b(0),b(64)},b(208),b(112),b(208),b(64),b(0)8),b(64),d' ' dta b(116),b(29),b(7),b(1),b(0),b(1),b(7),b(29) dta b(0),b(0),b(64)" org infofonts dta d' ' dta d' ',b(255),b(170),b(170),b(170),b(85),b(0) dta d' ',b(63),b(42),}b(42),b(42),b(21),b(0) dta d' ',b(15),b(10),b(10),b(10),b(5),b(0) dta d' ',b(3),b(2),b(2),b(2),b(1),b(0) dta d' } ' dta d' ' dta d' ' dta d' ' dta d' '*. d}ta d' ',b(48),b(0) dta d' '*0-9 dta b(0),b(12),b(50),b(50),b(49),b(49),b(4),b(0) dta b(0),b(3),b(14),}b(2),b(1),b(1),b(1),b(0) dta b(0),b(12),b(50),b(2),b(8),b(48),b(53),b(0) dta b(0),b(12),b(50),b(2),b(9),b(1),b(52),b(0)} dta b(0),b(48),b(50),b(50),b(9),b(1),b(1),b(0) dta b(0),b(62),b(48),b(56),b(1),b(1),b(52),b(0) dta b(0),b(14),b(48)},b(56),b(49),b(49),b(4),b(0) dta b(0),b(60),b(2),b(2),b(5),b(1),b(1),b(0) dta b(0),b(12),b(50),b(8),b(33),b(33),b(4),b(}0) dta b(0),b(12),b(50),b(50),b(9),b(1),b(52),b(0)*: dta d' ',b(48),d' ',b(48),d' ' dta d' ',b(3),b(8),b(60),}b(250) dta b(60),b(250),b(233),b(164),b(16),b(48),b(48),b(36) dta b(233),b(36),b(3),d' ' dta b(24),b(12),b(12),b(19}6),b(60),b(250),b(233),b(36) dta d' '*A-Z dta b(0),b(12),b(50),b(50),b(57),b(49),b(49),b(0) dta b(0}),b(60),b(50),b(56),b(49),b(49),b(52),b(0) dta b(0),b(12),b(50),b(48),b(48),b(49),b(4),b(0) dta b(0),b(60),b(50),b(50),}b(49),b(49),b(52),b(0) dta b(0),b(62),b(48),b(56),b(48),b(48),b(53),b(0) dta b(0),b(62),b(48),b(56),b(48),b(48),b(48),b}(0) dta b(0),b(14),b(48),b(48),b(49),b(49),b(5),b(0) dta b(0),b(50),b(50),b(50),b(57),b(49),b(49),b(0) dta b(0),b(62}),b(8),b(8),b(8),b(8),b(53),b(0) dta b(0),b(62),b(2),b(2),b(1),b(49),b(4),b(0) dta b(0),b(50),b(50),b(56),b(49),b(49),b}(49),b(0) dta b(0),b(48),b(48),b(48),b(48),b(48),b(5),b(0) dta b(0),b(12),b(58),b(58),b(49),b(49),b(49),b(0) dta b(0}),b(60),b(50),b(50),b(49),b(49),b(49),b(0) dta b(0),b(12),b(50),b(50),b(49),b(49),b(4),b(0) dta b(0),b(60),b(50),b(50),}b(56),b(48),b(48),b(0) dta b(0),b(12),b(50),b(50),b(49),b(49),b(4),b(2) dta b(0),b(60),b(50),b(50),b(56),b(49),b(49),b(}0) dta b(0),b(14),b(48),b(8),b(1),b(1),b(52),b(0) dta b(0),b(62),b(8),b(8),b(8),b(8),b(4),b(0) dta b(0),b(50),b(50),}b(50),b(49),b(49),b(4),b(0) dta b(0),b(50),b(50),b(50),b(49),b(4),b(4),b(0) dta b(0),b(50),b(50),b(50),b(57),b(57),b(4)},b(0) dta b(0),b(50),b(50),b(8),b(8),b(49),b(49),b(0) dta b(0),b(50),b(50),b(50),b(8),b(8),b(4),b(0) dta b(0),b(62),}b(2),b(8),b(8),b(48),b(53),b(0)* dta d' !!!!!"' dta d' ' dta b(91),d'"!!!!! ' dta b(148),d' ' d}ta d' $$',b(25),d'$$ '****znaki specjalne*1dysk dta b(0),b(0),b(63),b(59),b(59),b(63),b(42),b(41) dta b(0),b(12),}b(50),b(50),b(57),b(49),b(49),b(3)*2dysk dta b(0),b(0),b(250),b(186),b(185),b(250),b(170),b(26) dta b(3),b(12),b(50),b}(48),b(48),b(49),b(4),b(0)*3dysk dta b(40),b(41),b(42),b(42),b(42),b(42),b(42),b(0) dta b(0),b(62),b(48),b(56),b(48),}b(48),b(57),b(3)*4dysk dta b(10),b(26),b(98),b(42),b(42),b(42),b(170),b(0)*fuel dta b(0),b(9),b(39),b(31),b(63),b(}63),b(61),b(61) dta b(0),b(240),b(252),b(15),b(195),b(243),b(95),b(255) dta b(61),b(61),b(61),b(61),b(63),b(62),b(11),d}' ' dta b(126),b(255),b(250),b(238),b(187),b(250),b(165),d' '*1bron dta d' ',b(255),b(254),b(234) dta b(0),b(}48),b(48),b(56),b(48),b(48),b(5),b(0)*2bron dta d' ',b(4),b(214),b(106),b(170) dta b(3),b(60),b(50),b(50),b(49),b(}49),b(49),b(0) dta b(3),b(12),b(50),b(50),b(49),b(49),b(4),b(0)*copyright c dta b(0),b(14),b(48),b(48),b(51),b(48),b(}48),b(10) dta b(0),b(168),b(2),b(226),b(1),b(81),b(1),b(84)*spec dta b(255),b(170),b(170),b(170),b(170),b(170),b(85),}b(0) dta b(3),b(14),b(48),b(8),b(1),b(1),b(52),b(0)*spec dta b(0),b(255),b(170),b(170),b(170),b(170),b(170),b(85)*s}pec dta b(233),b(233),b(234),b(234),b(234),b(234),b(234),b(213)*spec dta b(233),b(233),b(233),b(233),b(233),b(233),b(2}33),b(233)*spec dta b(233),b(233),b(169),b(169),b(169),b(169),b(165),b(85)*spec dta b(253),b(169),b(169),b(169),b(169}),b(169),b(233),b(233)*spec dta b(255),b(254),b(250),b(234),b(238),b(250),b(233),b(233)*spec dta b(12),b(62),b(2),b(8}),b(8),b(48),b(53),b(0)*34bron dta d' ' dta b(170),b(42),b(42),b(42),b(42),b(42),b(8),b(0)*microprocesor }dta b(0),b(0),b(3),b(15),b(3),b(3),b(14),b(2) dta b(0),b(0),b(248),b(235),b(168),b(168),b(171),b(168) dta b(2),b(14),b(}2),b(2),b(14),b(2),d' ' dta b(168),b(171),b(168),b(168),b(171),b(168),b(160),d' '68),b(171),b(168) dta b(2),b(14),b(W* --- --- *init equ * lda #61 sta dmactls l}da displaylist sta dlist+1 rtsdli_o}n equ * lda #0 sta sojusz lda dli sta dliv+1 lda #192 sta nmien rtswyswietl eq}u * sta screen,y ora #1 sta screen+1,y rtsposition equ *} pha txa clc adc piontable,y asl @ } tay pla jsr wyswietl rtslocate equ * txa } clc adc piontable,y asl @ tay lda screen,y rts}translacja equ * ldx #0 ldy #0trans lda (reals),y sta screen,x} ora #1 sta screen+1,x inx inx iny c}py #128 bne trans rtsdli equ * pha txa } pha ldx sojusz lda chbastable,x sta 54282 sta 54281 } inc sojusz lda sojusz cmp #17 bne *+22 lda #0 } sta sojusz lda #$44 sta 53270 lda #$ca sta 53271 } lda #$1f sta 53272 pla tax pla rtisojusz } dta b(0)_zm equ * lda _pos_X cmp #64 beq _ch1 c}mp #183 beq _ch2 lda _pos_Y cmp #28 beq _ch3 cmp #}130 bcs _ch4 rts_ch1 ldy #128 lda #182 sta _pos_X } jmp _2change_ch2 ldy #130 lda #65 sta _pos_X jmp _2change}_ch3 jsr _pmbclear ldy #132 lda #128 sta _pos_Y jmp _2}change_ch4 jsr _pmbclear ldy #134 lda #29 sta _pos_Y j}mp _2change_2change sty chnmi lda #0 tax sta _misX_position,x } inx cpx #4 bne *-6 rtschnmi dta b(0)_do_zebrania equ * } ldy #0 lda reals_do_z3 cmp zebtable,y beq _do_z2_do_z4 iny } iny cpy #60 *(*) bne _do_z3 rts_do_z2 lda reals+1 } cmp zebtable+1,y bne _do_z4 tya pha lda reals } pha lda reals+1 pha lda eladrtable,y sta reals } lda eladrtable+1,y sta reals+1 ldy #0 ldx #0zb_el lda (reals),y } sta fonts+288,x inx iny cpx #16 bne zb_el } ldx #0zb_el2 lda (reals),y sta fonts+1024+288,x inx iny } cpx #16 bne zb_el2 pla sta reals+1 pla sta rea}ls pla lsr @ tay lda zebratable,y beq _juz_zebra}ny lda pozyc_table,y asl @ tay lda #36 jsr wyswiet}l_juz_zebrany rts_kasuj_element equ * ldy #0 lda realsdo_z3 cmp zebtable,y } beq do_z2do_z4 iny iny cpy #60 *(*) bne do_z3 } rtsdo_z2 lda reals+1 cmp zebtable+1,y bne do_z4 lda eladrtabl}e,y cmp dysk } bne _other sed lda kieszen clc adc #1 sta kies}zen cld jmp _maz_other lda eladrtable,y cmp bron bne _2other sed } lda #$99 sta kieszen+1 cld jmp _maz_2other lda eladrtable,y } cmp fuel bne _3ot}her sed lda kieszen+2 cmp #$49 bcs *+10 adc #$50 } sta kieszen+2 jmp *+8 lda #$99 sta kieszen+2 cld } jmp _maz_3other equ * lda eladrtable,y cmp unkill bne _4other sed } lda #255 sta kieszen+3 cld jmp _maz_4other equ * ld}a eladrtable,y cmp en}ergy bne _5other jsr _uzup jmp _maz_uzup ldx #81 lda #}1 sta linia,x inx cpx #88 bne *-6 ldx #113 } sta linia,x inx cpx #120 bne *-6 rts_5other lda }eladrtable,y cmp micro} bne _6other lda #1 sta kieszen+4 jmp _maz_6other lda el}adrtable,y cmp supra } bne _7other sed lda kieszen+5 clc adc #1 } sta kieszen+5 cld jmp _maz_7other nop_maz tya lsr @ } tay lda #0 sta zebratable,y lda pozyc_table,y asl @} tay lda kieszen+7 jsr wyswietl lda zwolnij+4 bne }*+11 lda #$20+1 ldx #32 ldy #11 jsr m_init rts_}opn_door equ * ldy #0 lda reals_opn3 cmp doortable,y beq _opn2_}opn4 iny iny cpy #12 bne _opn3 rts_opn2 lda re}als+1 cmp doortable+1,y bne _opn4 tya lsr @ tay } cpx #0 beq *+7 lda #0 sta odoortable,y lda odoortab}le,y beq *+3 rts ldy #0_open3 lda screen,y cmp #82  } beq _open4 cmp #80 bne _open2 lda kieszen+7 * bne  }*+6 * lda #0 * beq *+4 * lda #18 s }ta screen+32,y ora #1 sta screen+33,y jmp _open2_open4 lda kieszen+7  } jsr wyswietl_open2 iny iny bne _open3 rts_pmbclear  } equ * lda #0 ldx #0_clear sta pmadres+1024,x sta pmadres+1280,x } sta pmadres+1536,x sta pmadres+1792,x sta msadres,x inx } bne _clear rts_inf equ * lda kieszen+2 jsr _inf2 st}x info+6 sty info+5 lda kieszen jsr _inf2 stx info+3 } sty info+2 lda kieszen+1 jsr _inf2 stx info+9 sty info+8 } lda kieszen+4 jsr _inf2 stx info+12 sty info+11 lda kie}szen+5 jsr _inf2 stx info+15 sty info+14 rts_inf2 pha} and #%00001111 clc adc #16 tax pla }lsr @ lsr @ lsr @ lsr @ clc adc #16 } tay rtsdoortable equ $8600zebtable equ doortable+12pozyc_table equ doortable+82eladrtable }* --- --- * org fonts dta d' ' dta b(255),b(234),b(2#}54),b(234),b(234),b(186),b(149),b(0) dta b(248),b(152),b(164),b(164),b(84),b(164),b(84),b(0)*4 $ dta b(15),b(62),b(58#}),b(250),b(234),b(234) dta b(234),b(234),b(240),b(148),b(164),b(165) dta b(169),b(169),b(169),b(169) dta#} b(255),b(251),b(238),b(250),b(234),b(213),b(68),b(17) dta b(255),b(169),b(169),b(165),b(153),b(85),b(68),b(17) dta b(255)#},b(238),b(251),b(238),b(250),b(234),b(234),b(85) dta b(255),b(170),b(170),b(170),b(170),b(170),b(169),b(85) dta b(255),b(17#}0),b(170),b(170),b(170),b(166),b(153),b(85) dta b(255),b(169),b(169),b(165),b(153),b(101),b(153),b(85)*7 ,. dta b(15#}),b(62),b(250),b(234),b(234),b(234) dta b(234),b(234),b(255),b(170),b(170),b(170) dta b(170),b(170),b(170),b(170),b#}(255),b(170) dta b(170),b(170),b(170),b(170),b(170),b(170) dta b(80),b(148),b(165),b(169),b(169),b(169) dta b(#}169),b(169)*8 0 dta b(165),b(149),b(85),b(85),b(85),b(84) dta b(17),b(0),b(80),b(84),b(80),b(68),b(16) dta b(# }68),b(16),b(0)*9 2 dta b(0),b(0),b(0),b(68),b(85),b(84) dta b(17),b(0),b(0),b(0),b(0),b(68),b(16) dta b(68),b#!}(16),b(0)*10 4 dta b(1),b(5),b(1),b(5),b(1),b(4),b(1),b(0) dta b(80),b(84),b(80),b(68),b(16),b(68),b(16) dta #"}b(0)*11 6 dta b(0),b(0),b(0),b(4),b(1),b(4),b(1),b(0) dta b(0),b(0),b(0),b(68),b(16),b(68),b(16) dta b(0)*12##} 8 dta b(165),b(149),b(85),b(85),b(85),b(84) dta b(17),b(0),b(80),b(84),b(80),b(68),b(16) dta b(68),b(16),b(0)#$}*13 : dta b(0),b(0),b(0),b(68),b(85),b(84) dta b(17),b(0),b(0),b(0),b(0),b(68),b(16) dta b(68),b(16),b(0)*14#%} < dta b(37),b(149),b(85),b(85),b(85),b(84) dta b(17),b(0),b(80),b(84),b(80),b(68),b(16) dta b(68),b(16),b(0)#&} dta b(255),b(170),b(170),b(0),b(149),b(165),b(105),b(90) dta b(255),b(170),b(0),b(85),b(85),b(90),b(91),b(90) dta b(255),#'}b(170),b(170),b(0),b(85),b(165),b(229),b(165) dta b(255),b(170),b(0),b(85),b(86),b(90),b(105),b(165) dta b(171),b(151),b(9#(}1),b(91),b(91),b(91),b(27),b(27) dta b(144),b(148),b(144),b(148),b(144),b(148),b(144),b(144)*17 D dta b(165),b(165),b#)}(64),b(15),b(63),b(14),b(14),b(58) dta b(80),b(84),b(0),b(224),b(172),b(160),b(160),b(172)*18 Fzapznk equ * #*} dta d' '*H dta d' !!!!!" '*20 J dta b(255),b(170),b(170),b(170),b(170),b(170),b#+}(170),b(170) dta b(255),b(170),b(170),b(170),b(170),b(170),b(170),b(170)*L dta d' $$',b(25),d'$$ ' dta b#,}(155),b(155),b(91),b(107),b(175),b(174),b(254),b(250) dta b(144),b(148),b(144),b(148),b(144),b(148),b(80),b(64)*23 p #-}dta b(0),b(149),b(0),b(240),b(252),b(248),b(249),b(234) dta b(0),b(192),b(0),b(0),b(0),b(12),b(140),b(184)*24 R dt#.}a b(0),b(3),b(0),b(0),b(0),b(48),b(50),b(46) dta b(0),b(86),b(0),b(15),b(63),b(62),b(122),b(169)*25 T dta b(165),b#/}(149),b(85),b(85),b(85),b(80),b(15),b(15) dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0)*26 V dta b(165),b(149#0}),b(85),b(85),b(85),b(84),b(17),b(0) dta b(80),b(84),b(80),b(68),b(16),b(68),b(31),b(15)*25 X dta b(165),b(149),b(#1}85),b(85),b(85),b(80),b(15),b(15) dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0)*26 Z dta b(165),b(149),b(85),#2}b(85),b(85),b(84),b(17),b(0) dta b(80),b(84),b(80),b(68),b(16),b(68),b(31),b(15)*27 \ dta b(165),b(149),b(85),b(85#3}),b(85),b(84),b(19),b(3) dta b(80),b(84),b(80),b(68),b(16),b(4),b(192),b(192)*28 ^ dta b(165),b(149),b(85),b(85),b#4}(85),b(84),b(17),b(0) dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0)*29 ` dta b(255),b(207),b(206),b(192),b(14#5}),b(128),b(2),b(0) dta b(250),b(162),b(162),b(1),b(144),b(2),b(64),b(0)*30  dta b(1),b(5),b(1),b(5),b(1),b(4),b(1#6}),b(0) dta b(80),b(84),b(80),b(68),b(16),b(68),b(60),b(60)*31  dta b(165),b(149),b(85),b(85),b(85),b(84),b(16),b(#7}0) dta b(80),b(84),b(80),b(68),b(16),b(4),b(240),b(240)*32 dta b(165),b(149),b(85),b(85),b(85),b(84),b(19),b(3) #8} dta b(80),b(84),b(80),b(68),b(16),b(4),b(192),b(192)*33 dta b(165),b(149),b(85),b(85),b(85),b(84),b(17),b(0) dt#9}a b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0)*34 dta b(0),b(255),b(255),b(255),b(250),b(250),b(234),b(234) dta #:}b(0),b(255),b(253),b(169),b(165),b(165),b(148),b(80)*35zaiznk equ * dta d' '*37 #;}dta b(253),b(254),b(249),b(244),b(228),b(247),b(230),b(246) dta b(64),b(160),b(72),b(0),b(3),b(51),b(102),b(102)*38ldo#<}rznk dta d' 'lasznk dta d' ' dta b(165),b(149),b(85),b(20),b(85),b(170),b(255#=}),b(255) dta b(80),b(84),b(80),b(68),b(85),b(170),b(255),b(255) dta b(1),b(5),b(1),b(4),b(85),b(170),b(255),b(255) dta b(#>}80),b(84),b(80),b(68),b(85),b(170),b(255),b(255) dta b(155),b(155),b(91),b(91),b(91),b(90),b(22),b(6) dta b(144),b(148),b(#?}144),b(164),b(234),b(234),b(255),b(191) dta b(11),b(11),b(91),b(91),b(91),b(91),b(27),b(27) dta b(144),b(148),b(144),b(148#@}),b(144),b(148),b(144),b(144) dta d' ' dta d' ' d#A}ta d' ' dta d' ' dta d' ' dta d' #B} ' dta d' ' dta d' 'telp dta d' #C} ' dta b(240),b(240),b(32),b(32),b(36),b(36),b(24),b(9) dta b(15),b(15),b(8),b(8),b(24),b(24),b(36),b(96)* --- #D} --- * org fonts+1024 dta d' ' dta b(227),b(99),b(147),b(147),b(83),b(14#E}6),b(82),b(0) dta b(255),b(170),b(250),b(170),b(169),b(234),b(85),b(0)*4 $ dta b(234),b(234),b(234),b(234),b(250),b(5#F}8) dta b(62),b(5),b(169),b(169),b(169),b(169) dta b(165),b(164),b(148),b(80)*5 & dta b(68),b(17),b(68),b(17),b(68#G}),b(255),b(234),b(213) dta b(68),b(17),b(68),b(17),b(68),b(253),b(169),b(85) dta b(255),b(170),b(170),b(170),b(170),b(253)#H},b(102),b(85) dta b(255),b(167),b(167),b(151),b(103),b(151),b(103),b(85) dta b(255),b(186),b(238),b(186),b(234),b(170),b(17#I}0),b(85) dta b(255),b(170),b(170),b(170),b(170),b(170),b(166),b(85)*7 ,. dta b(234),b(234),b(234),b(234),b(234),b(250#J}) dta b(62),b(5),b(170),b(170),b(170),b(170) dta b(170),b(170),b(170),b(85) dta b(170),b(170),b(170),b(170),b(#K}170),b(170) dta b(170),b(85),b(169),b(169),b(169),b(169) dta b(169),b(165),b(148),b(80)*8 0 dta b(80),b(84),b#L}(80),b(68),b(16),b(68) dta b(16),b(0),b(165),b(149),b(85),b(85) dta b(85),b(84),b(17),b(0)*9 2 dta b(80),b(84#M}),b(80),b(68),b(16),b(68) dta b(16),b(0),b(165),b(149),b(85),b(85) dta b(85),b(84),b(17),b(0)*10 4 dta b(0),b#N}(4),b(0),b(4),b(0),b(4),b(0),b(0) dta b(165),b(149),b(85),b(85),b(85),b(84) dta b(17),b(0)*11 6 dta b(0),b(4)#O},b(0),b(4),b(0),b(4),b(0),b(0) dta b(165),b(149),b(85),b(85),b(85),b(84) dta b(17),b(0)*12 8 dta b(80),b(84),#P}b(80),b(68),b(16),b(68) dta b(16),b(0),b(164),b(160),b(84),b(80) dta b(84),b(80),b(16),b(0)*13 : dta b(80),b(#Q}84),b(80),b(68),b(16),b(68) dta b(16),b(0),b(164),b(160),b(84),b(80) dta b(84),b(80),b(16),b(0)*14 < dta b(80#R}),b(84),b(80),b(68),b(16),b(68) dta b(16),b(0),b(165),b(149),b(85),b(85) dta b(85),b(84),b(17),b(0)*15 >@ dta b(2#S}2),b(5),b(1),b(32),b(36),b(37),b(37),b(0) dta b(149),b(165),b(106),b(90),b(22),b(5),b(64),b(0) dta b(86),b(90),b(169),b(165#T}),b(148),b(80),b(2),b(0) dta b(148),b(80),b(64),b(8),b(36),b(148),b(84),b(0) dta b(91),b(91),b(91),b(91),b(27),b(91),b(27)#U},b(27) dta b(149),b(149),b(149),b(149),b(149),b(148),b(145),b(144)*17 D dta b(10),b(10),b(58),b(10),b(10),b(58),b(10)#V},b(2) dta b(160),b(160),b(172),b(160),b(160),b(172),b(160) dta b(128)*18 Fzap2znk equ * dta d' #W} '*H dta b(91),d'"!!!!! ',b(148),d' ' dta b(170),b(170),b(170),b(170),b(170),b(170),b(170),b(85) #X} dta b(170),b(170),b(170),b(170),b(170),b(170),b(170),b(85)*21 L dta d' ' dta b(169),b(85),b(80),b(#Y}68),b(16),b(68),b(16),b(0) dta b(101),b(149),b(85),b(85),b(85),b(84),b(17),b(0)*23 p dta b(234),b(169),b(228),b(164),#Z}b(144),b(0),b(149),b(0) dta b(152),b(132),b(4),b(0),b(0),b(0),b(64),b(0)*24 R dta b(38),b(18),b(16),b(0),b(0),b(0)#[},b(2),b(0) dta b(170),b(105),b(38),b(25),b(5),b(0),b(86),b(0)*25 T dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b#\}(0) dta b(165),b(149),b(85),b(85),b(85),b(84),b(17),b(0)*26 V dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0) #]} dta b(165),b(149),b(85),b(85),b(85),b(84),b(17),b(0)*25 X dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0) d#^}ta b(165),b(149),b(85),b(85),b(85),b(84),b(17),b(0)*26 Z dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0) dta b(#_}165),b(149),b(85),b(85),b(85),b(84),b(17),b(0)*27 \ dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0) dta b(37),b#`}(149),b(85),b(85),b(85),b(84),b(17),b(0)*28 ^ dta b(80),b(84),b(80),b(68),b(16),b(68),b(19),b(3) dta b(165),b(149)#a},b(85),b(85),b(85),b(20),b(193),b(192)*29 dta b(1),b(0),b(3),b(15),b(14),b(0),b(0),b(0) dta b(128),b(0),b(192),b#b}(144),b(80),b(0),b(0),b(0)*30  dta b(0),b(4),b(0),b(4),b(0),b(4),b(0),b(0) dta b(129),b(149),b(85),b(85),b(85),b(#c}84),b(17),b(0)*31  dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0) dta B(4),b(160),b(84),b(80),b(84),b(80),b(1#d}6),b(0)*32 dta b(80),b(84),b(80),b(68),b(16),b(68),b(16),b(0) dta b(37),b(149),b(85),b(85),b(85),b(84),b(17),b(0)#e}*33 dta b(80),b(84),b(80),b(68),b(16),b(68),b(19),b(3) dta b(165),b(149),b(85),b(85),b(85),b(20),b(193),b(192)*34#f} dta b(233),b(229),b(212),b(0),b(240),b(208),d' ' dta b(65),b(5),b(20),b(0),b(15),b(13),d' '*35zai2znk equ #g}* dta d' '*37 dta b(230),b(230),b(229),b(164),b(228),b(165),b(150),b(85) dta b(102),#h}b(85),b(17),b(1),b(0),b(72),b(160),b(64) dta d' ' dta d' ' dta #i}b(170),b(85),b(0),b(68),b(16),b(68),b(16),b(0) dta b(170),b(85),b(0),b(85),b(85),b(84),b(17),b(0) dta b(170),b(85),b(0),b(#j}4),b(0),b(4),d' ' dta b(170),b(85),b(0),b(85),b(85),b(84),b(17),b(0) dta b(69),b(85),b(80),b(68),b(16),b(68),b(16),b(0) #k}dta b(170),b(85),b(85),b(85),b(85),b(84),b(17),b(0) dta b(91),b(91),b(91),b(91),b(27),b(91),b(27),b(27) dta b(149),b(149),#l}b(149),b(149),b(149),b(148),b(145),b(144) dta d' ' dta d' ' #m} dta d' ' dta d' ' dta d' ' #n} dta d' ' dta d' ' dta d' ' dta d#o}' ' dta b(1),b(3),b(15),b(62),b(58),b(250),b(234),b(0) dta b(64),b(192),b(160),b(168),b(168),b(170),b(170),#p}b(0) ' dta b(1),b(3),b(15),b(62),b(58),b(250),b(234),b(0) dta b(64),b(192),b(160),b(168),b(168),b(170),b(170), I P @ԩ/@ 4ca ObaYr qdar`r ILI 4 P50Q1֍Z'r}O` 4 P0R1֍zo` P Y -Z I ;p 4 4𩇅vx_'s}j o oԩХYrY SZ N FNYQ.@VVKD \Z Ndada't}ca 4LJ ca@ 4hLbba I`V VLWI5T WI`LWI!'u} O M KP P KL]J N _d e9f9f~KKIK JK~K`~K K` NLVbrIbrLeK΃Yr 'v}eZ Z q c` }b q`M aM5S K5S L5S K5S M`!L3SN L%N` L%N3SN LLL%N ܩLL%N'w}496::U8VD$BjHh`hF < >e`L%NL%N6L%N %N7S `ȩDL%Nȩ4L%N8L%N %N3S`:3S 'x}4S`L%NB3S 4S` %NUS`FUS VS`206Hh`h@N`3S` :3S 4Sca  4`7S` 4'y} %Nca  4`US` FUS VSca  4`&"͇SJ &&L%N &L%N`SJ ͇L%N 歇L'z}%NHHHTTTTT0+U0kU`U`U+VkV )U` )U`нhhh`)|M'{}MV}MM`|M+MT}MUM`=/0R1`N\N`5S 6S`HyR h %N`yR 5S`5S 6S'|}`HHNT ԍ NNNDЩʍЩhh@`r@ɷarɂ"``rLNA`rLN ParLN ParLNN'}}2f` <` HHHz{  hhhJQ R $ %N` <`'~} z`{ɅiL)Pz@{Ʌ L)Pz {ɅIiPLOL)Pzɀ{Ʌ L)Pz'}${Ʌ OL)PQ5TXq5Tx`z {ɅL)Pzɠ{ɅiL)PJQR  %Nca ! 4`'} `J/Q/Q`5SRPUS VSLP %N`  ` PTT '}PTT PTT PTT PTT`H)ihJJJJi`pppppppppERQp'}A5Q+/.)%#'29;<??????;<=>.)%34%49.)%5$!L/#)3)E=>?/#!,)C:)%-))0'}2:%$:!'L!$A;<:)%-)!:/34!L!:.)3:#:/.!?=>????????pppppppppE/RpAR-)3*!79+'}/.!.!;<??????;<=>:$AZ9L%S.!#:!3$/34!2#:9C=>?.!:)%-)E350%2"2/N!4/-/7A;<:)%-)!:/34'}!L!/#!,/.!?=>???????? 0@P`ppp5S5SUSUSuSuSĕSĕSĵSĵSSSSSTDTD5TAR'}'}'}YRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRXV@BGHKM]^%.%2')!#:!3VVDFIJ[\_`VV'}VUTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTW 0BDFH$".TVXZ(,'}l (,>HTVl468:BD` c c)I[rYr^d[r)7[r)_[r)L7c[r)br \`\r\r`\r`LPc k'}][r) [r)\r` \\r f` \\r f` {][r) [r)\r` \\r f` \\r f` \ f\r\r`\r` \'}L:c Z da`\r  /+`i ) ) )`i )@ ) )`\r'}`\r`\r` _d e d`]d]dA]d 8`^dYrca " 4arFd`ar)нFdar`!%)-159=AEI'}MQUY]aeimqu jd` d qd`2f`1f/f0fN0f1f0f)0f)2f`2f`9f``8ة9f6f7'}f/f-6fyca ! 4/f 6f/f`r6fD,5f f=f Lbe4f ff:f8$JJJJBfBf>f ;N ea`1f2f/f='f/f:f =+f `ar8^ri`ca " 4`ݻw?'}L 0#/+o+ x8HX@@((8`0ps8  8xAI@@@ E'}FDD""$DL 0#/+o+'B$d`x8HX@@((X `0ps8 ` xA'}I@@@@b,"L 0#/KO%'B "p``"x8HX@ ,\T`0ps8  $f'}xAI@@@@fL 0#/KO' `p00x8HX@ (,T`0ps8  $'}< #'5 訤 "< '} ApȢ, >::Pp@\x򀀀#/'}.Դ;7>< # 5-訤  "<'}  CA`p, >::P@\򀀀#/Ƞ'} "H/>< # <># "< '} $" Ȣ>:8 :*@@ ,#'}/Ƞ "H/>< # <># '}"<  $" Ȣ>:8 :*@@ 8'}꺕TT>:𔤥DUDUUUeU>PUUUT'}PTPDDDUTDDPTPDDDDUUUTPTPDDDUTDD%UUUTPTPDDiZUUZ[Z'}UUVZi[[[[@?:PTଠ[kP@'} 02.V?>zUUUPPTPDDUUUTPTPDDUUUPPTPDDUUUTPTPDDUUUTPTPDUUUTPTPD'}D@PTPDD<PDDDDDDUfUggUꪪUU>'}UUPPTPDDUUUTPTPDDUUUTUUUTUUUTPTPDDTPTPPTPDDTPTPPTPDD'}UUUT $%%jZ@VZPP@$T[[[[[ : : [UU'}UPDDeUUUT䤐@&i&VPTPDDUUUTPTPDDUUUTPTPDDUUUTPTPDDUUUTPTPD'}D%UUUTPTPDDUUUPUUUTPTPDDTPTPPTPDD%UUUTPTPDDUUUA '}䥖UfUH@UDDUUUTUUUUTEUPDDUUUUT[[[[['}'}>:@U?*** '}0 2211 205 2 4022 >0840811< 2!! 22 4'}00<<00$$ <$ 22911<28114 2001<22114>08005>080000011222911>'}5>122811100000 ::111<22111 2211<22800 2211<2281104>22211222122299221122'}2>05[?;;?*) 22911 2001()*****>08009 b*** '??==_'}====?> ~00800j<22111 221100300 QTU04U驩U'} >05*****먨߅'|< |.@?:PTଠ : :'} iny iny lda dane-5,x jsr wyswietl rts_skroc equ }* lda zwolnij bne *+9 stx zwolnij jsr linka rts } dec zwolnij rtsnabtable dta b(52),b(54),b(56),b(58),b(60),b(62),b(66) dta b}  PT@jPTPDD*****Hh(hUUPQrPTPD4orQ4TPC<<00$$'}(68),b(20),b(24),b(70),b(72)eltable dta b(0),b(0),b(16),b(18),b(20),b(22),b(24),b(26) dta b(28),b(36),}b(34),b(46),b(84),b(86),b(88) dta b(90),b(40),b(44),b(108)el2table dta b(0),b(8),b(10),b(12),b(14),b(1}6),b(18) dta b(20),b(22),b(24),b(26),b(40),b(44) dta b(62),b(72),b(84),b(86),b(108)nab2table } dta b(52),b(54),b(56),b(58),b(66) dta b(68),b(20),b(24)drop_up dta b(0)drop_counter dta b(0)dr}op_znacznik dta b(0)),b(58),b(66) dta b(68),b(20),b(24)drop_up dta b(0)drop_counter dta b(0)dr equ doortable+122zebratable dta d'........................................'odoortable dta d'......'ladrtable s@D <$zYYijiYYPIh(hUUPQrPTPD4orQ4TPC<<00$$$3